作成 の 技法 


大 叶 広 土着 


時 1 問 人 EE HH Fo 
| 計 章 FE 四 
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前 全 ソ リー ス ・ リ スト 
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新 言 語 作成 の 技法 


@CP/M, ZSID は Digital Research 社 
@ MACRO-80 は Microsofft 社 

の 各 メ ー カ ー の 登録 商標 で す . を その他. プロ グラ ム 名 , シス テ 
ム 名 , CPU 名 は 一 般 に 各 開 発 メ ー カ ー の 登録 商標 で す . な お , 
本 文中 で は TM, マー ク は 明記 し て いま せん . 


まえ が き 


プロ グラ ム 言 語 の 作成 技法 に つい て 書か れ た 本 は 何 冊 か 発行 きれ 
て いま す . た だ , その 多く は ミニ コン より 上 位 の コン ピュ ー タ を 対 
象 に し て いる よう で す . その た め , コン パイ ラ を 高 水準 言語 で 記述 
し て いた だ た り , か な り レ ベル が 高かっ た り で よく 理解 で き な い と いっ 
た こと も ある よう で す . 

た し か に 本 格 的 な ユン パイ ラ を 作成 する た め に は , 多く の 知識 と 
プロ グラ ミン グ ・ テ クニ ッ ク , そし て 経験 し いっ た も の が 必要 で す . 
し か し , パソ コン て 文字 どおり パー ソナ ル な コン パイ ラ を つく る た 
め に は , それ ほど の 大 変 な 力量 が 必要 か と いう と , 決し て を う で は 
あり ませ ん . 

本 書 で は , Z80CPU を ター ゲッ ト に , コン パイ ラ を 作成 する た め 
の 基本 的 な 手法 を まとめ て み ま し た . で すか ら ,Z80 の アセ ンプ グラ 言 
語 や Pascal と いっ た 言語 を ある 程度 , 理解 され て いる 方 な ら 十 分 読 
みこ な せる 内 容 に な っ て いま す . 

これ か ら コ ン パ イラ を つく ろう と 思っ て いる 方 や デブ ログ ラム 言語 
の 構造 を 研究 し よう と し て いる 方 に 本 書 が 少し で も ぉ 役に立て ば 幸 
いで す . 


本 書 第 2 部 で は コン パイ ラ の 作成 例 し し て 全 ソ ー ス ・ プ ログ ラム 
を 掲載 し て いま す . これ は ディ スク で も 読者 サー ビス を いた し ます 
の で ご 利用 くだ さい (詳細 は 巻末 を ). 

また , 第 2 部 3 章 の PC-8801 バ ー ジ ョ ン の コン パイ ラ お よび ライ 
ブラ リ は 大 熊 英男 , 石塚 圭 樹 両氏 に よっ て 移 値 ・ 作 成 き れ た も の で 
す . ご 協力 に 対し , ここ に 感謝 を 述べ て お きま す . 


圏 本 書 の 構成 較 

本 書 は , 1 部 と 2 部 の 2 部 構成 に な っ て いま す 。 第 1 部 で は コン パイ ラ を 作 
成す る た め の 基 本 的 な 手法 を , 第 2 部 で は 作成 例 し し て 全 ソ ー ス ・ リ スト を 掲 
載 し ます 。 各 章 の 要約 は 次 の と お り で す 。 
@ 第 1 部 
第 1 章 コン パイ ラ と は 

ュ ン パイ ラ そ の も の の 構造 と 付随 する リン カ や OS な どの ソフ トウ ェ ア の 概 
要 を 示し ます 。 
第 2 章 言語 の 設計 

言語 の 表現 方 法 し し て , 読み や すく 理解 し や すい 『 構 文 図 」 の 書き か た を 中 
心 に 解説 し ます 。 
第 3 章 コン パイ ラ の 設計 と 手法 

本 書 の 中 核 と な る 章 で す 。 コ ユン パイ ラ を 作成 する た め の 基 本 的 な 手法 を ま と 
め て いま す 。Pascal や FORTRAN を 例 に あげ ,、 どう オブ ジェ クト ・ プ ログ ラ 
ム (Z80 の アモン プラ 言 語 で 記述 ) を 展開 する か を 中 心 に 解説 し ます 。 ま た , 
構文 解析 や 式 の コン パイ ル は 身近 な 言語 で ある BASIC で 記述 し た 例 も 示し ま 
す 。 引数 の 処理 な ど 部 分 的 に 少々 難し い 部 分 も あり ます が , な る で く 図 で 示し 
て 理解 し や すい よう に 配慮 し まし た 。 
@ 第 2 部 
第 1 章 プロ グラ ム 言 語 Stellar 

コン パイ ラ の 作成 例 し し て 『Stellar』 と 名 付け た コン パイ ラ を 示し ます 。 本 
章 は 文法 書 を 書く と き の 参 考 に も し て くだ さい 。 
第 2 章 CP/M バ ー ジ ョ ン の Stellar コン パイ ラ 

CP/M 上 で 動作 する Stellar コン パイ ラ の 全 ソ ー ス ・ リ スト を 掲載 し ます 。 
研究 の 対象 と し て プロ グラ ム の 解読 は 多く の 情報 を も た ら す で し ょ う 。 
第 3 章 PC-8801 バ ー ジ ョ ン の Stellar コン パイ ラ 

PC-8801 に 移植 し た Stellar コン パイ ラ と 数 多く の ライ ブラ リ , サン プル ・ 
プロ グラ ム を 示し ます 。 
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国 大 団 国 了 固 國男 | 証 
Illll 


コン バイ ラ と は いっ 
た い 何 を する も の か , 
コン バイ ラ を と より ま く 
実行 環境 と の 関連 を 含 | 


め て , コン パイ ラ に つ 
いて の 基本 的 な 事項 を 
解説 し ます 。 


7ー- / ブロ グラ ノム 彦 詳 


プロ グラ ム 言 語 と 一 口 に いっ て も 種々 雑多 の 言語 が 
り ま す 。 そこで, まず 最初 に 言語 を 分 類 し , 次 に 言語 の 
処理 方 式 で ある イン ター プリ タ 方 式 と コン パイ ラ 方 式 の 
違い に つい て 述べ ます 。 


上 -1-1 ブロ グラ ム 言 語 の 分 類 

プロ グラ ム 言 語 (programming language) は , 人 間 が 
フアン ピエ ー グ 系 同 の す 半 症 お の と 堪ら だ 月 靖 で 人 工 
言語 (artificial language) と も 呼ば れ て いま す 。 こ れ に 
対し , 日 本 語 や 英語 の こと を 自然 言語 (natural lan- 
guage) と いい ます 。 

プロ グラ ム 言 語 を 使用 目的 , 分 野 別 に 分 類する と, 一 
般 的 に 図 1-1 の よう に な り ま す 。 図 か ら わ か る よう に 大 
きく 汎用 言語 (general purpose language) と 特殊 用 言 
語 (special purpose language) に 分 けら れ ま す 。 汎用 言 
語 は , 名 前 が 示す と お り 広 範囲 な 分 野 で 使わ れる 言語 で 
す が , それ ぞ れ の 言語 に は や は り 得 手 不 得手 が あり ます 。 
この 他 に , 高 水準 言語 と 低 水準 言語 と いう 分 け か た も あ 
り ま す 。 こ の 分 け か た は , あく まで 相対 的 な も る ので, よ 
) 自然 言語 に 近い プロ グラ ム 言 語 を 高 水準 言語 , より 機 
械 (コン ピュ ー タ ) に 近い 言語 を 低 水 準 言語 と 呼ん で い 
ます 。 

低 水準 言語 は 図 1-1 の 機械 向き 言語 の こと を 指し ま 
す が , アセ ンプ ブラ を 低 水 準 言語 と 呼ぶ 和信 は あま り い な い 
よう て す 。 


7-7 ブロ グラ 4 青 医 


プロ グラ ム 言 語 の 分 類 


金 プ ログ ラム 言語 (コン ピュ ー タ を 動か す た め の 人 口 言語 の こと を 言う 
(広範 囲 な 分 野 で 使用 で きる 言語 
機械 向き 言語 (コン ビュー タ 固有 の 命令 が 使わ れる 


機械 語 (命令 を 2 進数 , 16 進 数 で 表す 


アセ ンプ ラ 言 語 (命令 を 人 間 に も わか る よう に 記号 に 表し た 言語 


(数 式 や 英文 に 近い 形 で プロ グラ ム で きる 


手続 き 型 言語 (BASIC, FORTRAN, COBOL な どの 言語 が ある 


非 手続 き 型 言 語 ′” (RPG な どの 言語 が ある 


人 特殊 用 語 (特定 の 分 野 で 使用 され る 言語 ) 


5 た 
数 値 制御 用 言語 (人 放 の た め の プロ グラ ム 言 語 . 代表 的 な 言語 に APT が ある 


キャ 
C AD 言語 路 設 計 用 に は ECAP が ある 。 


シー エー アイ の の 
C AI 言語 ( 本 シ ステ ム 用 の 


に いも の で は 化学 , 石油 な どの コン ピナ ー ト , 小さ いも の で は 温 


ド に = 機械 自動 車 な どの 設計 に 用 いら れる 言語 。 時 ke 


プロ セス 制御 用 言語 度 な どの 制御 を 行う 言語 


ン ミ ュ レ ーション 言語 | 。 テ ッ タ ル . コン ビュ ー タ で 行う た め の 言語 , CSMP な ど が ある 


アナ ログ ・ コ ンピュータ ーー 


リス ト と 呼ば れる デー タ 構 造 を 扱う 言語 ,. リス ト 処理 は 非 数 値 計算 
リス ト 処 理 言語 3 LISP が 有名 で ある 
R 文 を 調べ た り , 文 を 変換 する よう な スト リン グ 処 理 を 行う た め の 言 
スト リン グ 処理 用 半 較 | 計 SqoBoL な と が ある 


数 式 処 理 用 言語 算 で きる MACSYMA と いう 言語 が ある 


コン バイ ラ を 記述 する た め の 言 語 。 C 言語 の も と に な っ た BCPL が 


有名 で ある 


数 学 的 な 数 式 を 扱う た め に 作ら れ た 言語 。 後 積分 , NB 0 
コン パイ ラ 記 述 用 言語 ) 


1-1-2_ イン ター プリ タ と コン バイ ラ 
高 水 準 言語 は , 実行 時 の 処理 方 法 に より イン ター プリ 
タ と コン パイ ラ に 分 けら れ ま す 。 フ パソ ツユ コン で は , 一 般 に 
BASIC イン ター ブリタ が 使わ れ て いま す 。 イ ンタ ー ジ プ 
リタ は プロ グラ ム を 解釈 し な が ら 直 接 実行 し ユン パイ 
ラ は プロ グラ ム を 一 是 機 械 語 に 変換 し て か ら 実 行 し ます 。 
だ な と えば , 


K=2*(L ブ 5 一 N) 


と いう 式 が ある と する と , イン ター プリ タ で は 次 の よう 
に 解釈 ・ 実 行き され ます 。 


① “"K=" に より , この 文 は 代入 文 で あり , 計算 結果 を 
格納 する 変数 は K で ある と 解釈 。 

② “2* ("より カッ コ 内 の 式 を 計算 し , 2 倍 す る と 解 
釈 。 

③“L ン 5" は 変数 し を 5 で 割る と 解釈 し , 変数 表 を 検 
索 し て し の 値 を 求め , 計算 する 。 

④ “ーN" は 変数 表 よ り N の 値 を 求め 、③ の 計算 結果 か 
5 減算 する 。 

⑤ )" ょ り ② で 解釈 し た 内 容 を 実行 。 

⑥ 計 算 結 果 を 変数 表 の 変数 代 の 値する 。 


一 方 , コン パイ ラ は 文 を 字句 ご と に 解析 し , 機械 語 に 
変換 し ます 。 図 1-2 は 同じ 式 を コン パイ ル し た 例 で す 。 
た だ し , 変数 K, 上, N を 2 バイ ト の 整数 と し , 機械 語 
で は な く 〈 Z80 の アモ ンプ ブラ 言 語 で 記述 し て いま す 。 

イン ター プリ タ と コン パイ ラ を 比較 する と, 次 の よう 5 
な こと が 言え ます 。 
① 実 行 時 の プロ グラ ム は , コン パイ ラ で つく っ た 方 が 数 
倍 一 数 10 倍 高速 で す 。 こ れ は イン ター プリ タ が 文 の 解釈 


7-7 ブロ グラ クノ 嬉 話 


《E 衣 に =2*(L/5-N) の コン パイ ル 例 


LD DE,5 DE 一 定数 
CALL IDIV HL<HL/DE を 計算 する サブ ルー チン を コー ル 
に DE, (@N) @N は 変数 N の こと , DE 変数 N 


K= ニ 2*(L/5 一 N) e HL, (@L) 、@L は 変数 し の こと , HL 変数 L 


OR A 

SBC HL DE HL<HL 一 DE 

LD DE 2 DE 一 定数 2 

ai HL< 一 HL * DE を 計算 する サブ ルー チン を コー ル 
> LD (@K).HL 。@K は 変数 K の こと , 変数 K<-HL 


と 実行 を 同時 に 行っ て いる の に 対し , コン パ マイラ は 文 の 
解釈 に 相当 する 部 分 を 一 括 し て 行い , 実行 時 に は 解釈 が 
必要 な い の で , この 分 だ け 実 行 時 間 が 速い の で す 。 
イン ター プリ タ の 方 が プロ グラ ム 開 発 の 効率 が 良い よ 
う で す 。 プ ログ ラム 開発 時 は 変更 や 修正 が 頻繁 に 行わ れ 
る の で , すでに 実行 で きる イン ター プリ タ の 方 が 向い て 
いま す 。 コン パイ ラ の 方 は , 実行 する まで の 操作 が 多い 
ため, すでに 結果 が 見 られ ませ ん 。 


以上 の こと か ら 6, 開発 は イン ター プリ タ で 行い , 完成 
し た ら コ ン パ イラ で コン パイ ル し て 実行 する と き は 機械 
語 で 行う よう に すれ ば 開発 効率 も 高く , 完成 し た プロ グ 
ラム の 実行 時 間 も 速 いし いう こと に な り ま す 。 し か し , 
現状 で は (特に パソ コン で は ) こう いう シス テム は ほ と 
ん と ど 見 か け ま せん 。 一 部 BASIC の よ うに 両方 備わっ て 
いる も の も あり ます が , コン パチ ビリ ティ が な か っ た 
り , BASIC 言語 を の も の が か か える 問題 点 な ど で 必 ず 
し も 十分 と は 言え な いよ う で す 。 


7- ノ コン マラ の 女 末 閣 と 遼 導 


ここ で は , コン パイ ラ が どの よう に し て 高 水準 言語 
機械 語 に 変換 する の か , その 処理 過程 と 構造 に つい て 解 
説 し ます 。 


1-2-1 コン バイ ル か ら 実 行 まで 
高 水 準 言語 で 書か れ た ソース ・ プ ログ ラム を コン パイ 
ル し て 得 ら 5 れる プロ グラ ム を オプ ジェ クト ・ プ ログ ラム 
と 呼び ます 。 オ ブ プ ジ ェ クト ・ プ ログ ラム の 形式 に は 主 に 
次 の 種類 が あり ます 。 
① す ぐに 実行 で きる 機械 語 
② 再 配置 情報 機械 語 と し た 再 配置 可能 (リロ ケー タブ 
ル ) な プロ グラ ム 
③ ア セン プラ の ソー ス ・ プ ログ ラム 


CP/M や ゃ MS-DOS な どの DOS 上 で 走行 する コン パ 
イラ や ミニ コン 以上 の コン ピュ ー タ で は , ほとん ど が ② 
か ③ の 形式 で す 。 

① は ディ スク な どの 高速 な 外部 記憶 装置 が な い 場 合 に 
使わ れ ま す 。 ま た , この 形式 の コ ユ コンパ イラ は プロ グラ ム の 
サイ ズ も 小さ る さく, コン パイ ラ の 基本 動作 を 知る 上 で も 手 
頃 な 教材 な の で , 本 書 第 2 部 で 記載 し た コン パイ ラ も こ 
の 形式 で す 。 

図 1-3 は コン パイ ル か ら 実 行 ま で の 過程 を 図 で 示し 
た も の で す 。 ロ ー ダ は ディ スク な ど に 出力 し た プロ グラ 
ム を メモ リ に ロー ド し 実行 する た め の プ ログ ラム で す 。 
リン ケー ジ ・ エ ディ タ (これ は リン カ と も 呼ば れ , パソ 
コン で は この 呼び か た が 多い の で これ 以降 , 本 書 で は リ 
ンカ と し ます ) や リン ケー ジ ・ ロ ー ダ は , 再 配置 情報 か 


7-2 コン フン パイ ラ の 奴 理 過 下 と 識 遊 


と と ロ と ・] と エバ と 4] F 田 y* と と べ オ イー の ※ 
"WW うと と ロ と ・ と ー/ 記 人 せ 省 % と と オイ の 錠 W う 7 と と ロ と ・1 と エス と ) せ 省 と ハバ ベビ 1※ ( 奈 


. 々 ー ロ ・ ベ ズー ケズ 


(4 イル ィ と ) 


と と ロン の 民 用 稲 Z 昌 


せ の 弄 貞 動 と と オイ を 人 F 田 
7 と と ロ と ・] と エズ と 了 そ 刈 正 時 喝 量 


Y 


と と ロ 選 4 と エス と 4 と 4 CEY: Ll※ ーー 7 と と ロ と と エス と と イル ヽ / ニ ヒビ 


(4 ル < と ) 


せ 当 の 至 貞 重 と ここ 4 テマ 田所 時 異 般 狼 
(立っ 血 WxS0 う の C 事 > 多 衝 4 と ィ と ) と と ュ / ス ヒマ を 人 田 セ 7 と と ロ 選 の 選 呈 と と ス オ Z ⑧ 


ター ロ ・ ベ ー セ ケズ 
(イィ と ) (4 ル 々 と) 
7 と /H/ パ 2 エ く と , 間 折 居 量 
7 と グロ と ゴン エス と と 


(を っ 童 光 )*SO み の C 刺 > 多々 イレ ィ と ) と と * ィ ンス ヒ を を 作田 セ プ と と ロ と ・】 と ェ ズル 立 現下 量 画 量 ② 


いい 生 疾 巡 fl ター ロロ) 号 覧 放 イ 田村 時 1 丁 (( 主 〆 ア 生 7 と と ロン ・] と エズ と と 
(4 レティ と ) (イル z と ) 


7 と と ロ と の 叶 香 和 
7 と と ロン エ と と 4 と ゝ / ズ ヒ と と ロ と ・ と ー ム 


(] 立 曽 9 4 人 S0 み の い 如 中 刺 まそ イレ ィ と ) と と >/ ス ヒビ ヒ を 他 田 時 衝 妖 大 還 ① 
辞世 の ひま 性 挙 ら ヶ 7 と ュ ッ ズ ヒ 直言 


6 実行 可能 な 機械 語 プ ログ ラム を つく る も の で す 。 リ ン 
カ と 再 配置 情報 に つい て は , “1 - 3 リンカ "の と ころ で 
解説 し ます 。 リ ン ケ ー ジ ・ ロ ー ダ は リン カ と ロー ダ を 一 
緒 に し た よう な も の で す 。 

再 配置 可能 な オプ ジェ クト ・ プ ログ ラム を 出力 する プ 
ログ ラム の 特徴 は ,。 1 つの ソー ス ・ ブ ログ ラム を 何 本 か 
に 分 け て コン パイ ル し て , 最後 に リン カ に よっ て 1 本 の 
機械 語 プ ログ ラム に で きる こと で す 。 こ の た だ め 大 き な プ 
ログ ラム を 数 人 で つく る 場合 な ど に 有効 で す 。 ま だ , オ 
ブ ジ ェクト ・ プ ログ ラム の 形式 が 同一 で あれ ば , 複数 の 
言語 を 使っ て の 開発 も で きま す 。 た と えば , 高 水準 言語 
だ け で は どう し て も 記述 で き な い 部 分 や 処理 を 高速 に し 
た い ル ー チ ン な ど を アセ ンプ ブラ 言語 で 記述 する と いっ た 
な も で きま すず す 。 


1-2-2 コン パイ ラ の 構造 
それ で は , コン パイ ラ は どの よう に し て ソー ス ・ プ ブロ 
グラ ム か ら オ ブ ジ ェクト ・ プ ログ ラム を つく っ て いる の 
で し ょ うか 。 一 般 に コンパイラ の 中 で は 図 1-4 の よう な 
処理 で ソー ス ・ プ ログ ラム か ら オ ブ ジ ェクト ・ プ ログ ラ 
ム が つく られ て いま す 。 これら 6 の 処理 は 互い に 独立 し て 
コン パイ ラ の 構造 
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7-2 コン ン パ イラ の 炊 理 過 寿 と 構 閣 


いる の で は な く , 密接 に 関係 し あっ て いま す 。 
で は , コン パイ ラ 内 の 各 処 理 が 何 を 行っ て いる か 各 処 
理 別に 見 て いく こと に し まし ょ う 。 


① 字 名 解析 (lexical analysis) 

ソー ス ・ プ ログ ラム の 文字 列 を 読み , トー クン (token) 
と 呼ば れる 語句 に 分 解す る 処理 が 字 名 解析 で す 。 トーク 
ン は 予約 語 や 名 前 (変数 名 や サ プ ブル ー チ ン 名 , 関数 名 , 
ラベ ル な ど ), 定数 (数 値 や 文字 ) な どの こと で , 次 の 構 
文 解析 部 で 使い ます 。 

だ た と えば , BASIC ユン パイ ラ は 


250 IF A>B THEN 200 


と いう ソー ス ・ ブ ログ ラム を 字 名 解析 部 で 


定数 ( 行 番号 ) “250" 
予約 語 “IF" “THEN" 
名 前 (変数 名 ) “A" “B" 


区 切り 記号 (演算 子 ) ">" 
定数 “200" 


と いう よう に 分 解 し ます 。 


(⑦ 構 文 解析 (parsing, syntax anolysis) 

構文 解析 は , 字句 解 析 に よっ て 得 ら れ た トー クン に よ 
っ て ステ ー ト メン ト (命令 ) の 構成 を 調べ , 後 の 最適 化 
処理 や ュー ド 生 成 処理 へ 解析 結果 を 渡す 処理 で す 。 構文 
解析 で は まず 字句 か ら ス テー トメ ント の 種類 を 判断 し た 
後 , さら に 詳細 な ステ ー ト メン ト 別 の 構文 解析 を 行い ま 
す 。 図 1-5 は BASIC 言語 の IF 文 が どの よう に 構文 解 
析 さ きれ る か を 示し た 例 で す 。 

字句 解析 と 構文 解析 は プロ グラ ム 言 語 の 文法 書 に 示さ 
れ て いる 構文 に し た が っ て 解析 し て いき ます 。 こ の 段階 
で 文法 に し た が わな い 構 文 は 誤り (エラ ー) と し て は じ 
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BASIC 言 語 の IF 文 の 構文 解析 例 


ソー ス ・ プ ログ ラム 


~ 字 句 解析 の 結果 


構文 解析 の 判断 
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A ジ B THEN 


名 前 区 切り 名 前 予約 語 
記号 


! 


予約 語 が 「IF」 変数 演算 子 変数 | ここ に は 予 行 番号 
な の で 以後 IF 約 語 「THEN」 
文 の 構文 解析 変数 A と 変数 B を 比 | が 必要 。 予約 語 
を 行う 。 較 し AB なら 真 , 「THEN」 の 
AS ミ SB な ら 偽 と する 。 前 の 式 が 真 
に 。 の と き 次 に 
実行 する 行 
式 の 解析 番号 


| 


IF 娘 の 構文 解析 


か れ , エラ ー 処 理 で メッ セー ジ が 出力 され ます 。 
構文 解析 , 特に 式 の 解析 に は , 逆 ポ ー ラ ンド 記法 を 使 
う 方 法 や 再帰 的 に 解析 し て いく 方 法 な ど が あり ます 。 


⑬③ 最 適 化 (optimization ) 

最適 化 は , 構文 解析 の 結果 か 6 ら 最適 な (ムダ の 少な い ) 
オブジェ クト ・ プ ログ ラム を つく る 処理 で , 次 の コー ド 
生成 処理 で は 最適 化 に よっ て 選ば れ た 機械 語れ を オブ ジェ 
クト ・ コ ユー ド と し ます 。 最適 化 の 主 な 目的 は , オプ ジェ 
クト ・ プ ログ ラム の サイ ズ を 小さ 〈 し , 実行 速度 を 上 げ 
る こと で す 。 同じ 言語 の ュ ユン パイ ラ で も , この 最適 化 の 
し か た に よっ て オブ ジェ クト ・ プ ログ ラム の サイ ズ や 実 
行 速度 が 異な り ,。 ひい て は コン パイ ラ 自 体 の 性 能 (評価 ) 
を 決め る 要因 と も いえ ます 。 

た と えば , “AA 十 B* ネ 2 一 1” と いう 式 を も コンパ イル 
し , 8086CPU の 命令 を オプ ジェ クト ・ コ ユー ド と し て 出力 
する 場合 , 式 の と なり に ユン パイ ル す る と , 


MOV AX @A : レジ スタ AX へ 変数 人 を ロ 


ー ド , @A が 変数 A を 示す 。 


7-2 コン ン パ イラ の 女 理 間 者 と 大 状 


PUSH AX : スタ ッ ク ヘ レジ スタ AX の 
内 容 を プッ シュ する 。 
MOV AX, @B : レジ スタ AX へ 変数 B を ロ 
ー ド , @B が 変数 B を 示す 。 
MOV BX,2 : レジ スタ BX へ 定数 2 を 設 
定 。 
MUL BX : レ ジス タ AX と レジ スタ 
BX を 乗算 し , 結果 は レジ ス 
タ AX へ 入れ る 。 オ ー バ ー 
フロ ー は 無視 。 
:) "B* ネ 2" の 結果 を レジ ス 
タ BX へ 転送 。 
: スタ ッ ク よ り 変 数 A の 内 容 
を ポッ プ す る 。 
: レ ジス タ AX に レジ スタ 
BX の 内 容 を 加算 する 。 
: レジ スタ B X へ 定数 | を 設 
定 。 
: レジスタ AX よ り レ ジス タ 
BX の 内 容 を 引く 。 


と な り ま す 。 簡単 な 最適 化 の 例 と し て , 元 の 式 を “B※* 
2 寺 A 一 1” と 変形 し 。 きる 6 に“*2”" を 左 へ の シフ ト 
命令 , “一 1" を デ ク リ メン ト 命 令 に すれ ば 
MOV AX, @B : レジ スタ AX へ 変数 B を ロ 
ー ド 。 
SAL AX, | : レジ スタ AX を 左 ヘ へ シフト 


する 。 こ れ は AX*2 と 同 
比 。 

ADD AX, @A : レジ スタ AX へ 変数 A の 内 
容 を 直接 加算 する 。 
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DEC AX : レジ スタ AX を デ ク リ メン 
ト (AX- | )。 


と オプ ジェ クト ・ コ ユー ド が 小さ く な り , 実行 する 命令 数 
も 減る の で 実行 速度 も 速く な り ま す 。 


(《④ コ ー ド 生成 (code generation ) 

コー ド 生 成 は , 構文 解析 や 最適 化 の 結果 か ら オ ブ ジ ェ 
クト ・ コ ユー ド を つく 〈, る 処理 で す 。 こ こ で つく られ る オブ 
ジェ クト ・ コ ユー ド は , その コン パイ ラ に よっ て , 機械 語 
命令 で あっ た り , ある 特定 の アセ ンプ ブラ の 形式 を 備え た 
ニモ ニッ ク 列 で あっ た り し ます 。 機械 語 プ ログ ラム を 直 
接 出力 する の か , アモ ンプ ブラ 形 式 の ニモ ニッ ク を 出力 す 
る の か , ある い は 再 配置 可能 な オプ ジェ クト ・ プ ログ ラ 
ム を 出力 する の か に よっ て , コン パイ ル 後 の 処理 が 『 1 
ー-2-1 コン パイ ル か ら 実 行 ま で "の 説明 の よう に 変っ 
で きま すず 。 

オブジェ クト ・ コ ユー ド は を それ 自体 一 つ あ る い は 複数 の 
命令 で あり , オブ ジェ クト ・ コ ユー ド が 集まっ て オブ ジェ 
クト ・ プ ログ ラム と な り ま す 。 


⑮ エ ラー 処理 (error handling) 

構文 解析 で 検出 され た 構文 上 の 誤り な ど は , この エラ 
ーー 処理 で エラ ー メ ッ セ ー ジ と し て 出力 し , 知ら せま す 。 
その 後 エ ラー 処理 で は エラ ー の 種類 を 調べ , 重大 な エラ 
ー だ っ た と き 以 外 は エラ ー に 適当 な 処理 を 施し , コン パパ 
イル を 続行 し ます 。 こ の 一 連 の 処理 あ エ ラー 回 復 (error 
recovery) と いい ます 。 

エラ ー 回 復 の 処理 は 非常 に 難し く , どの よう に し て エ 
ラー を 処理 し コン パイ ル を 続行 する か が 問題 で す 。 た と 
えば , エラ ー が ある 文 は 終わ り ま で 読み と ば し , 次 の 文 
か ら 改 め て コン パイ ル を 続行 する 方 法 。 エ ラー が ある 文 
の 前 後 の 文脈 か ら エ ラー の 原因 を 推測 し て コン パイ ル を 


7-2 コン ン パ プラ の 女 理 過 略 と 灯 遊 


輝 行 する 方 法 な ど が あり ます 。 この 場合 , 前 者 の 方 は わ 
り と 簡単 に どき ます が , 後者 の 方 は か な り 難 し く エ ラー 
回 復 の 処理 どけ で も か な り 大 きく な っ て し まい ます 。 い 
ずれ に せよ エラー 回 復 を 正しく 行わ な が いと コン パイ 
ル を 再開 し た と き 正 し い 構 文 な の に エラ ー と 判断 され て 
し まう こと が 起き だ た り し ます 。 


⑥ 記 号 表 (symbol table ) 

記号 表 は 変数 や サブルーチン , 関数 。 ラ ベル な どの 名 
前 と アド レス , 属性 な ど を 記憶 する 表 で す 。 コ ユン パイ ル 
中 は この 記号 表 へ の 登録 , 参照 が 繰り 返さ れる た だ ため, 記 
号 表 の 操作 の 速度 が コン パイ ル 全 体 の 速度 に 大 き な 影 響 
を 及ぼ し ます 。 と り わ け 表 の 参照 は 登録 より も 頻繁 に 起 
きる た め , 記号 表 の 検索 や 速く する こと が コン パイ ル 速 
度 の 向上 に つなが り ま す 。 
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7- 3 
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グン アカ 


コン パイ ラ や アセ モン ブラ が オブ ジェ クト ・ プ ログ ラム 
と し て 再 配置 可能 な プロ グラ ム を 出力 する 場合 , リン カ 
が 必要 に な り ま す 。 リ ンカ の 仕事 は 図 1-6 に 示す よう に 
複数 個 の 再 配置 可能 な オブ ジェ クト ・ プ ログ ラム を リン 
ク (ink 三 連結 ) し , 1 本 の 実行 可能 な 機械 語 プ ログ ラム 
を つく る こと で す 。 

リン カ は モジ ュー ル (module) と 呼ば れる 単位 で リン 
ク し ます 。 再 配置 可能 な オプ ジェ クト ・ プ ログ ラム は 一 
つ 以 上 の モジ ュー ル の 集まり で , モジ ュー ル は 一 つ 以 上 
の ルー チン の 集まり で す 。 リ ンカ は リン ク の と き に ライ 
ブラリ (library) より 必 要 な モジ ュー ル を 取り 出し て リ 
ンク し ます 。 こ の 場合 の ライ ブラ リ は 再 配置 可能 な オブ 
ジェ クト ・ プ ログ ラム の モジ ュー ル を 集め た も の で す 。 
図 1-7 は 図 1-6 を モジ ュー ル 単 位 で 見 た 場合 の 例 で 
す 。 図 で は , オプ ジェ クト ・ プ ログ ラム A, B, C ( モ 
ジュ ー ル A, BX, BY。C) を すべ て リン ク し , ライ ブ 
ラリ か ら サ プ ブルー チン 2 を 含む モジ ュー ル が リン 
ク る れる こと を 示し て いま す 。 こ の 場合 , 必要 の な い サ 
プ ブルー チン 1, 3 も リン ク る れ て いま す 。 


それ で は , 今度 は 再 配置 可能 な オプ ジェ クト ・ ブ ログ 
ラム の 中 身 と リン ク は どの よう に 行わ れる か 見 て いき ま 
も し よう 。 

ュ ン パイ ル す る と き , アド レス は ハー ドウ ェ ア 上 の 絶 
対 ア ドレ ス で は な く , モグ メン ト (segment) と いう 論理 
的 な 単位 で ゲ ログ ラム を 分 割 し , セグ メン ト の 先頭 を ゼ 
ロ と する 相対 アド レス を 使い は す 。 コ ユ コンパ イル され る プ 
ログ ラム は 大 きく 分 け て , 変数 な どの デー タ の 部 分 と 式 
や や 制御 文 な どの 命令 の 部 分 に 分 けら れ ま す 。 コン パイ ラ 


が = こ 9 ンタ 


リン カ の 動作 
コン パイ ラ や アセ ンプ ラ が 出力 し た 
再 配置 可能 な オプ ジェ クト ・ プ ログ ラム の ファ イル 


オプ ジェ クト ・ プ ログ ラム A, B,C と ライ ブラ リ よ り 必 要 な 
も の だ け を 取り 出し リン ク す る 。 


オプ ジェ クト ・ プ ログ ラム 実行 可能 な 機械 語 


A プロ グラ ム の ファ イル 


オブ 本 = ュ イ プラ 機械 語 の プロ グラ ム 


再 配置 可能 な オブ ジェ 
クト ・ プ ログ ラム を 集め 
た ライ ブラ リ ・ フ ァイル 


リン カ に よる モジ ュー ル の リン ク 
オプ ジェ クト ・ プ ログ ラム A 機械 語 プ ログ ラム 
モジ ュー ル A 


で は サブ ルー に 


were サブ ルー チン A2 
サ プ ブルー チン BI 
オプ ジェ クト ・ プ ログ ラム B サブ ルー チン B2 


モジ ュー ル BX サブ プルー チ ン B3 

サ プ ル ー チ ン CI | 

| サブルーチン B2 サ プ ル ー チ ン が | 
サブ ルー チン 2Z 2 
サ プ ブル ー チ ン / 3 


モジ ュー ル BY 
サブ ルー チン B3 


オプ ジェ クト ・ プ ログ ラム C 


モジ ュー ル C 
モジ ュー ル Z〆 モジ ュー ル Z 
員 人 サブ ルー チン ez | | | サブ プル ー チ ン Z』 | 
サ プ ブル ー チ ン e 2 : サブ ルー チン Z 2 


サ プ ル ー チ ン e 3 サブ ルー チン Z 3 
サ プ ブル ー チ ン g 4 


0 
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は , この 二 つ の 部 分 に を それぞれ セグ メン ト を 設け , コー 
ド 生 成 の と き デ ー タ の 部 分 の オブ ジェ クト ・ コ ー ド を デ 
ー タ ・ セ グ メ ント と 呼ば れる セグ メン ト へ 出力 し , 命令 
の 部 分 は ユー ド ・ セ グ メ ント と 呼ば れる セグ メン ト へ 出 
力 し ます ( 図 1-8 )。 

さら に , コー ド 生 成 部 で は オプ ジェ クト ・ コ ー ド を つ 
くる と き に , それ ら が 何で ある か を 示す コー ド を 付け る 
よう に し て いま す 。 表 1-1 は その 一 例 で す 。 

この 表 を 例 に と る と , リン カ は 次 の よう な 処理 を し て 
いき ます 。 


@TYPE 0 00XX 
XX の 1 バイト を 直接 機械 語 の 1 バ ば イト と する 。 
@TYPE 1 01XXXX 
XXXX の 2 バイ ト が コー ド ・ セ グ メ ント の 相対 アド レ 
ス な の で , “ 現 コ ー ド ・ セ グ メ ント の 先頭 の 絶対 アド レ 
ス 十 XXXX” で 求め た 2 バイ ト を 機械 語 2 バイ ト と す 
る 。 
@TYPE 2 02XXXX 
XXX 双 の 2 バイ ト が デー タ . セグ メン ト の 相対 アド レ 
ス な の で , “ 現 デ ー タ ・ セ グ メ ント の 先頭 の 絶対 アド レ 
人 g 謀 再 配置 可能 な オプ ジェ クト ・ プ ログ ラム の 構造 
コン パイ ル 時 に オプ ジェ クト ・ コ ー ド は デー 実際 に コン パイ ラ が 
タ ・ セ グ メ ント と コー ド ・ セ グ メ ント へ 分 け 出力 する モジ ュー ル 
| 


1 一 一 一 


リン カ へ 渡 
す た め の 再 
配置 情報 が 
付け 加え ら 


れ て 始め て 
ー つ の モジ 
ュー ル と な 
コー ド ・ セ グ メ ント 
セグ メン ト の サイ 2 
ズ は Y 二 1 バイト 


※ ア ドレ ス は セグ メン 
ト の 先頭 を ゼロ 番地 
と する 相対 アド レス 


7-9 リンカ 


へ e 計 還 》 再 配置 可能 な オプ ジェ クト ・ コ ー ド の 例 
オプ ジェ クト ・ コ ー ド 
@TYPE0 ャ ーー 1 バイ ト の 値 
0.0|XX 機械 語 の 命令 や 定数 な どの 1 バイ ト の 値 。 
を ーーー オプ ジェ クト ・ タ イプ の コー ド を 示す 


@TYPE1*ーー 2 バイ ト の 相対 アド レス 
X XIX X コー ド ・ セ グ メ ント の 相対 アド レス を 示す 2 バイ ト の 値 


@TYPE 2 て 一 2 バイ ト の 相対 アド レス 
0 2IX XX X デー タ ・ セ グ メ ント の 相対 アド レス を 示す 2 バイ ト の 値 。 


WE 3 To slY YY Y| |Y.Y|0 0| | 他 の モジ ュー ル に ある 外部 記号 名 の 値 を 示す 。 
リン ク に より 2 バ な る 。 
エー リン ク に より 2 バイ ト の 値 と な る 
免 TYPE 4 ・n 三 0 の 場合 
2 バイ ト の 値 を 名 部 記号 名 で 定義 する 。 
・n 三 | の 場合 
0.4|X xlx xlY Y| [YY|9 | | 2 バイ ト の 値 が コー ド ・ セ グ メ ント の 相対 アド レス 
ゆ バ イト の 外部 記号 名 ”" 6 タート 
値 2 バイ ト の 値 が デー タ ・ セ グ メ ント の 相対 アド レス 
と し て 外部 記号 名 で 定義 され る 。 


@TYPE 5 呈 
コー ド ・ セ グ メ ント の 始ま り を 示す 。 


@TYPE 6 


デー タ ・ セ グ メ ント の 始ま り を 示す 。 


CE lo.7Y ylY yl …|Y ylo 0| ライ ブラ リ を 指定 する 。 


ライ ブラ リ 名 
@TYPE 8 
モジ ュー ル の 終わ り を 示す 。 
※ 内 の 2 桁 の 数 
オプ ジェ クト ・ ブ ログ ラム の 字 や 英字 は , 2 桁 
最 後 の 16 進 数 で 表わさ 
れる 1 バイ ト 。 
※X X は アド レス や 
値 な ど を 示す 。 
※YY は ASCII な どの 
文字 コー ド を 示す 。 
この 例 は , 
1 つの モジ ュー ル の サイ ズ は 三 つ の モジ 
(X+1) 士 (Y+1) +g モジ ュー ル B の | ユー ル で 一 
実際 の モジ ュー ル は 再 配置 や デー タ . セ グ メ ント | つの オプ ジ 
リン ク の た め の 情 報 が ある た ェクト ・ プ 
め g バイ ト だ け 大 きく な る 。 ログ ラム を 
作っ て いる 
どー 


オプ ジェ クト ・ プ ログ ラム の コー ド ・ セ グ メ ント 
先 豆 id 


19 


20 


ス 十 XXXX" で 求め た 2 バイ ト を 機械 語 2 バイ ト と す 
る 。 
@TYPE 3 03YYYY…YY00 

YY…YY は 1 バイト 以上 の 文字 列 で 外部 記号 名 を 表 
し て いる の で , リン カ は 等 し い 外 部 記号 名 が すでに 定 
義 る きれ て いれ ば , その 外部 記号 名 が 示す 2 バイ ト を 機械 
語 2 バイ ト と する 。 定義 きれ て いな けれ ば 定義 る され る ま 
で 処理 を 保留 し , 定義 きれ た と き に 処理 の 続き を 行う 。 
@TYPE 4 04XXXXYYYY…… YYOn 

n 0 の 場合 , XXXX の 2 バイ ト の 値 を YY…YY の 
1 バイ ト 以 上 の 文字 列 で 表 る れる 外部 記号 名 で 定義 す 
る 。 

nー1 の 場合 , XXXX は 2 バイ ト の ユー ド ・ セ グ メ ン 
ト の 相対 アド レス な の で , “ 現 コ ー ド ・ セ グ メ ント の 先頭 
の 絶対 ア / ド レス 十 XXXX" で 求め た 2 バイ ト の 値 を YY 
…YY の 外部 記号 名 で 定義 する 。 

n= ク 2 の 場合 , XXXX は 2 バイ ト の デー タ ・ セ グ メ ン 
ト の 相対 アド レス な の で , “ 現 デ ー タ ・ モ セグメント の 先頭 
の 絶対 アド レス 十 XXXX" で 求め た 2 バイ ト の 値 を YY 
…YY の 外部 記号 名 で 定義 する 。 

@TYPE 5 05 

現時 点 の 絶対 ア 7 ドレ ス を コー ド ・ セ グ メ ント の 先頭 ア 
ドレ ス と し て 記憶 し て なく 。 この 値 は TYPE1 と 4 の オォ 
プ ブ ジ ェクト ・ コ ユー ド の と ころ で 計算 に 使わ れる 値 で ある 。 
@TYPE 6 06 

現時 点 の 絶対 アド レス を デー タ ・ セ グ メ ント の 先頭 ア 
ドレ ス と し て 記憶 し て お く 。 こ の 値 は TYPE2 と 4 の オォ 
プ ジ ェ クト ・ コ ユー ド の し と ころ で 計算 に 使わ れる 値 で ある 。 
@TYPE 7 07YYYY……| YY00 

YY…YY は ライ ブラ リ 名 で リン カ を 共 了 する と き に 
未定 義 の 外部 記号 名 が あっ た 場合 , 指定 きれ た ライ ブラ 
リ を 自動 的 に 検索 し , 未定 義 の 外部 記号 名 が 定義 る され て 
いる モジ ュー ル を リン ク す る 。 


7-3 ンカ 


@TYPE 8 08 
現在 リン ク し て いる モジ ュー ル の リン ク を 終了 し , つ 
ぎの リン ク へ 移る 。 


以上 , リン カ と 再 配置 可能 な オプ ジェ クト ・ プ ログ ラ 
ム の 例 を 見 て きま し だ が, これ は あく まで 仮想 的 な も の 
で す 。 実際 に 使わ れ て いる も の は , も っ し と 複雑 で す 。 フ パ 
ソコ ユン で は , 米 マ イク ロ ソ フト 社 の 8 ビッ ト CPU(80 系 
の 8080, 8085, Z80) 用 の アセ ンプ ブラ や コン パイ ラ で 使わ 
れ て いる オプ ジェ クト ・ コ ユー ド の 形式 が 有名 で す 。 こ れ 
は マニ ュ ア ル に 書か れ て いる の で , 機会 が あれ ば 一 度 読 
ん で みて くだ きい 。 
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7/- プ ラン タイム ソレ シー チ ン 
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コン パイ ラ が 出力 し た 機械 語 の オプ ジェ クト ・ プ ログ 
ラム は 実行 する と き に ラン タイ ム ・ ル ー チ ン (run time 
routine) と 呼ば れる も の が 必要 で す 。 ラ ンタ イム ・ ル ー チ 
ン は 実行 時 に 必要 な サブ ルー チン や デー タ の 集まり で , 
ディ スク , キー ボー ド , CRT な どの 入出 力 や 演算 , 関 
数 , 文字 列 の 操作 とい っ た サブ ルー チン が あり ます 。 ち 
な み に , ラン タイ ム と は プロ グラ ム を 実行 し て いる 時 間 
引 必定 お 
コン パイ ラ が 再 配置 可能 な オプ ジェ クト ・ プ ログ ラム 
を 出力 する 場合 , リ ンカ は ラン タイ ム ・ ラ イブ ラリ か ら 
実行 に 必要 な サブ ルー チン の み 抜 粋 し て リン ク し ます 
( 図 1-9 )。 リ ンカ の と ころ で 述べ た よう に , モジ ュー 
ル 単 位 で リン ク さ れる た め , 一 つの モジ ュー ル に 多く の 
す プ ルー チン を 入れ る と 最終 的 に プロ グラ ム も 大 き 〈 く な 
っ で し まめ ます 。 
コン パイ ラ が 直接 機械 語 の オブ ジェ クト ・ プ ログ ラム 
を 出力 する 場合 ,、 ラ ンタ イム ・ ル ー チ ン は , 
① コ ン パ イル 時 に オプ ジェ クト ・ プ ログ ラム の 一 部 と し 
て ラン タイ ム ・ ル ー チ ン も 出力 する 。 
(ラン タイ ム ・ ル ー チ ン を 常に メモ リ の 一 定 の 領域 に 記 
憧 し て お く 。 
③ オ ブ ジ ェクト ・ プ ログ ラム の 中 に 外部 記憶 装置 か ら ラ 
ンタ イム ・ ル ー チ ン を ロー ド す る プロ グラ ム を 入れ て 
お き , は じ め に この ルー チン で ラン タイ ム ・ ル ー チ ン 
を メモ リ に ロー ド す る 。 
(《④③ と は 逆 に ラン タイ ム ・ ル ー チ ン で 外部 記憶 装置 より 
オブ ジェ クト ・ プ ログ ラム を 読み 込む 。 
な どの 方 法 で 機械 語 プ ログ ラム か ら ラ ンタ イム ・ ル ー チ 
ン を 使え る よう に し ます 。 


7-24 ラン タイ ムン レー チン 


《@g 護 》 ラン タイ ム ・ ル ー チ ン と の リン ク 


オプ ジェ クト ・ プ ログ ラム 機械 語 プ ログ ラム 


コン パイ ラ が 生成 し た ヽ コン パイ ラ が 生成 し た 
機械 語 プ ログ ラム 機械 語 プ ログ ラム 


士 
再 配置 情報 ラン タイ ム ・ ラ イブ ラリ 

ラン タイ ム ・ ル ー チ ン ラン タイ ム ・ ラ イブ ラリ よ り 
実行 に 必要 な ルー チン 

・ 四 則 演 算 を 抜粋 し た も の 

・ 関 数 の 計算 

・ 文 字 列 の 操作 

・ 入 出力 装置 と の 入出 力 


機械 語 を 直接 出力 する コン パイ ラ は , コン パイ ル す る 
と き に ハー ドウ ェ ア 上 の 絶対 アド レス を 使い は す 。 し た 
が っ て , ラン タイ ム ・ ル ー チ ン 内 の 各 す プル ー チ ン の 呼 
び 出 し アド レス も 絶対 アド レス で 決め られ て いま す 。 
ラン タイ ム ・ ル ー チ ン は 数 命令 の 機械 語 で 処理 で き な 
いも の を サブ ルー チン 化し た も の で す 。 だ た と えば 整数 の 
四則 演算 は 短い 機械 語 で で きる が , 実数 の 四則 演算 に は 
長い ルー チン が 必要 で ある と いっ た 場合 , コンパイル 時 
に 整数 演算 の と き は 直接 機械 語 を , 実数 演算 の と き は ラ 
ンタ イム ・ ル ー チ ン を 呼び 出す 機械 語 を つく る よう に し 
ます 。 こ れ に よっ て オブ ジェ クト ・ プ ログ ラム の サイ ズ 
を 小さき くす る こと が で きま す 。 
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リー 0 と = レク リラ 


OS と は オペ レー ティ ング ・ シ ステ ム (operating SyS- 
tem) の こと で , コン ピュ ー タ を 効率 的 に 使い や す 〈 運 


(g 言 D OS の 体系 


制御 プロ グラ ム 


タス ク 管 理 


デー タ 管理 。 | 


処理 プロ グラ ム 


言語 娘 理 プ ログ ラム 


FORTRAN コン パイ ラ 


COBOL コン パイ ラ _』 


サー ビス * ブ ログ ラム 


アプ リケーション ・ プ ログ ラム 


ワー ド ・ プ ロ セ ッ サ 


作 表 計 算 パ ッ ケ ー ジ 


営 , 操作 する た め に 用 意 き れ た ソ 
フト ウェ ア 体 系 の こ と で す 。 図 1 
-10 に 示す よう に アセ ンプ ブラ や っ コ 
ン パ イラ と いっ た だ た プログ ラム も 
OS の 一 部 な の で す 。 狭い 意味 で 
は 制御 プロ グラ ム (管理 アロ グラ 
ム と も いう ) の こと を OS と いう 
場合 も あり ます 。 制 御 ア ログ ラム 
は , ほか に モー ニタ (monitor), ス 
ー フ ババ イザ (supervisor) と か シス 
テム ・ ブ ログ ラム (system pro- 
gram) と も 呼ば れ て いま す 。 

OS の 概念 図 は 図 1-11 の よぅ 
に な っ て いま す 。 こ の 図 は , 内 側 
の 機能 は 外側 に よっ て 利用 きれ る 
こと を 意味 し て いま す 。 つ まり 5, 
ハー ドウ ェ ア は 制御 プロ グラ ム か 
ら 6 利用 され, 制御 アロ グラ ム は 処 
理 プ ログ ラム な どか ら 利 用 きれ る 
こと を 示し ます 。 こ の こと は , 処 
理 プ ログ ラム な どか ら の 制御 プロ 
グラ ム の 利用 方 法 る さえ 同じ な ら 6, 
ハー ドウ ェ ア が 異な っ て も 実行 で 
きる と いう こと で す 。 つま り , OS 
が 同じ で あれ ば , 他 の コン ピュ ー 
タ の 処理 プロ グラ ム も 利用 で きる 
と こと に な り ま す 。 


7-5 OS と コン ン \ プ ラ 


OS 上 で 走る コン パイ ラ を つく る 場合 , 入出 力 や タス 
ク 管 理 の 制御 を 行う た め に は シス テム ・ コ ー ル まだ は ス 
ー パ バイ ザ ・ コ ユー ル と 呼ば れる OS に よっ て 定め られ た 
一 定 の 手続 き を 踏む 必要 が あり ます 。 特に, マル チタ ス 
ク の 機能 を も つ OS で は , この 規則 を 守ら な いと 正常 に 
動作 し な い ば か りか 枝 走 する こと る え あ り ま す 。 


(本 語 D 0S の 概念 


入出 力 装置 
な どの コン ピ 
ュー タ 本 体 


" CPU, メモ リ , 


1 腸 


プロ グラ ム 言 語 を 設 
計 す る うえ で , 何 を ど 
う 設計 す る の か , また 


設計 時 に 訪 頭 に お いて 
ほし いこ と を 述べ て い 
きま す 。 
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“オリ ジ ナ ル "” と いっ て も , 既存 の 言語 と まっ た く 異 な 
る も の を つく る こと は , 個人 の レベ ル で は か な り 難 し い 
で し ょ う 。 ま た だ , 既存 の 言語 の コン パイ ラ も ほとん ど が 
ミニ ュ コン 以上 の コン ピュ ー タ を 対象 に 文法 が つく られ て 
いる だ め に , これ も パッ コン で 実現 する に は , か な り の 
労力 を 要 し ます 。 個 人 の レベ ル で は , や は り , 既存 の 言 
語 に 大 幅 に 制約 を 加え た も の か , 似 た よう な 文 を 持つ 言 
語 を 新た に つく る 程度 に な る で し ょ う 。 

いずれ に し ろ プ ログ ラム 言語 は , コン パイ ラ や オプ ジ 
ェクト ・ プ ログ ラム が 実行 され る 環境 を 考え て 設計 し ま 
す 。 ま た , 文 は な る べく 自然 言語 に 近づけ , 一 目 で 一 応 
意味 が わか る 程度 に まとめ ます 。 も ちろ ん , どう いう 有 目 
的 で ユン パイ ラ を つく る の か , 1 機種 専用 に する か 移植 
を 考え て つく る か , 前 も っ て 決め て お きま す 。 


新 し ( 言語 を 設計 する と き に , 考 成 し て ほし いこ と を 
列挙 し て み ま す 。 
① 構 造 化 プロ グラ ミン グ の た め の 文 を つ 〈 る 。 

構造 化 グ ゲロ グラ ミン グ は , ソフ トウ ェ ア の 質 や 信頼 性 
を 上 げ る た め の 手 法 で , プロ グラ ム の 作成 や デバ ッ グ が 
楽に な り ま す 。 構 造 化 アデ ログ ラミ ング は 図 2-1 に 示す よ 
うな 形式 で ゲロ グラ ム を つく る こと で , これ に よっ て 不 
必要 な GOTO 文 が な く な り ま す 。 さら に , 段階 的 詳細 化 
(トッ プ ・ ダ ウン ) が で きる と いう の も 大 き な 特 徴 で す 。 
段階 的 詳細 化し いう の は , 大 ま か な こ と か ら 始 め て だ ん 
ざん 詳細 の レベ ル に 持っ て いく こと で , プロ グラ ム の 大 
き な 変 更 が 少な く な り , 信頼 性 の 高い ソフ トウ ェ ア を つ 
《 る こと が で きま す 。 
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-@ 北 語 》 構 造 化 プ ログ ラミ ング 


④ 繰り 返し 文 


Powcsl で の 記述 


while B do S 


cose E of 
# 54 
の 
に 
語 
: Sn 


注 ) 図 中 の S は 文 を 表わし , B は 論理 式 , 
E は 式 , e は 定数 を 表す も の と する 。 


〈② サ プル ー チ ン や 関数 に 独立 性 を 持た せる 。 
BASIC 言語 で は , 変数 に 独立 性 が な く , お な じ 変 数 名 
で あれ ば 他 の ルー チン で 変更 きれ て し まい ます 。 こ れ で 
は 長い プロ グラ ム や 数 人 で プロ グラ ム を つく る と き に 大 
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変 不便 で す 。 

サブ ルー チン や 関数 は , 始め と 終わ り を は っ きり る せ 
て , 特定 の りす サブ ルー チン 内 で の み 使 える 変数 (これ を ロ 
ー カ ル 変 数 と か 局所 的 変数 と いう ) と メイ ン ・ ル ー チ ン 
と サブ ルー チン で 共通 に 使え る 変数 (これ を グロ ー バ ル 
変数 と か 全域 的 変数 と いう ) の 2 種類 の 変数 を 持つ よう 
に し ます 。 こ うす る と 他 の ルー チン の 変数 を 誤っ て 変え 
て し まう と いう 過ち が 起き に くく な り ま す 。 
⑬ 再 帰 的 プロ グラ ミン グ が つく れる よう に する 。 

これ は 必ず し も 必要 な いと 思い ます が , サブ プ ル ー チ ン 
や 関数 を 再帰 的 (recursive) な 呼び 出し が で きる と 便利 
な 場合 が あり ます 。 再 帰 的 な 呼び 出し と は , サブ ルー チ 
ン や 関数 が 実行 きれ て いる と き に , 直接 ある い は 間接 的 
に 自分 自身 を 呼び 出し て 実行 する こと で す 。 

再帰 的 プア ログラム は , 人 間 の 思考 過程 と 同じ よう な こ 
と を きる せる プロ グラ ム を つく る 場合 に 有効 で す 。 そ の た だ 

《E 愛 あゆ サ プ ル ー チ ン や 関数 の 独立 性 
① 独立 性 が 弱い 言語 ② 独立 性 の ある 言語 


メイ ン ル ー チ ン 
メイ ン ル ー チ ン 


(ある い は 関数 ) 


サブルーチン 
(また は 関数 ) 
サブ ルー チン 


サブ ルー チン 


プロ グラ ム 上 の 各 ル ー チ ン 同 士 の 
境界 が 明確 で な く 使 用 する 変数 も 
全 ル ー チ ン で 共通 の 変数 を 使っ て 
の サブ ルー チン 


プロ グラ ム 上 の 各 ル ー チ ン の 境界 が は っ き 
り し て いて , 特定 の ルー チン で し か 使わ れ 
な い 局 所 的 変数 と 全 ル ー チ ン か ら 使 用 で き 
る 全域 的 変数 の 2 種類 の 変数 が ある 。 
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め , 人 工 知能 の 分 野 で は よく 使わ れる 手法 で す 。 

(④ 機 械 語 や ハー ドウ ェ ア を 直接 操作 で きる 文 を 用 意 す る 。 
パッ コン で は , メモ リ や 1/O を 直接 操作 し た い 場 合 が 

どう し て も で て きま す 。 そ を そのため, メモ リ や 1/O へ の 直 

接 書き 込み ・ 読 み 出 し を 行う 文 , 機械 語 を 呼び 出す た め 

の 文 , 直接 機械 語 を 書く た め の 文 な ど が ある と 便利 で す 。 
この ほか , 数 氏 バ イト 程度 の 小さ な コン パイ ラ を つく 

る と き は , 

① 扱 える デー タ (変数 や 演算 ) の 型 を 1 種類 に 限定 する 。 

この 場合 , 実数 より 整数 の ほう が より 小さ く で きる 。 

@ 配 列 は 1 次 元 の み と す る 。 

③ 変 数 名 や サ プ ル ー チ ン 名 と いっ た 名 前 の 有効 文字 数 を 

短く する 。 

④ 記 号 表 に 登録 どき る 名 前 の 数 を 制限 する 。 

⑤Pascal な どの 言語 の よう な ブロ ッ ク 構 造 (サブ ルー チ 

ン や 関数 の 中 に そこ だ け で 使わ れる サブ ルー チン や 関数 

が 書け る 構造 ) に し な い 。 

と いっ だ た こと も 考え 6 れ ま す 。 
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プロ グラ ム 言 語 を 設計 する 場合 , 言語 の 構文 を 明確 に 
表 き な けれ ば な り ま せん 。 構文 の 表し 方 に は バッ カス 記 
法 (Backus Naur form : BNEF と 略 さ れる ) や 構文 図 
(syntax diagram) な ど が 使わ れ ま す 。 バ ッ カ ス 記 法 は 
少し わか り づ らく 〈, 最近 は あま り 使わ れ ま せん 。 こ れ に 
対し , 構文 図 は 読み や す 〈 書 きやすい と い 32 特 徴 が あり , 
る ら 5 に フロ ー チ ャ ー ト な ど に すでに 変換 で きる た だめ 広く 
使わ れ て いま す 。 ここ で も 構文 図 に つい て 述べ る こと に 
し ます 。 

プロ グラ ム 言 語 の 構文 を 直観 的 に 理解 し や すい よう に 
表す 記述 法 が 構文 図 で す 。 

た と え ぇ ば , 構文 図 で は 数 字 を 次 の よう に 表現 し ます 。 


これ は , 数 字 と た は , 0 また だ は 1, まだ は 2, … ま た は 
9 で ある と いう 意味 で す 。 この 円 の 中 に は 1 文字 の 文字 
や 記号 を 書き ます 。 こ れ を 終端 記号 と 呼び ます 。 矢印 の 
と お ぉ り 進 ん で 得 ら 5 れ た 結果 が , 図 の 左上 に 描い た も の の 
意味 と な り ま す 。 構文 図 の 入口 と 出口 は 必ず 1 個 ず つ で す 。 

符号 の な い 整 数 は 次 の よう に な り ま す 。 


符号 の な い 整 数 


ここ で , 長方形 は 中 の も の が 別 の と ころ で 表現 し て あ 
る こと を 意味 し て いま す 。 こ れ を 非 終 端 記号 と 呼び ます 。 


まだ, 矢印 が ルー プ に な っ て いま す が , これ は 符号 の な 
い 整 数 と は , 数 字 が いく つか 並ん ど ば も の で ある と いう こ 
と を 意味 し ます 。 
次 に , 整数 は , 


符号 の な い 整 数 


と な り ま す 。 こ れ は 整数 と は , 符号 の な い 整 数 , また は 
その まえ に “ 十 " か “ー" の いずれ か を 付け た も の で あ 
る と いう 意味 で す 。 

変数 名 や 関数 名 ほ い っ た プロ グラ ム 中 で 使わ れる 名 前 
を 「 英 字 で 始ま り , その 後に 英字 か 数 字 が 続い た も の 」 
と する と 次 の よう に な り ま す 。 


英 大 字 


” @@・ 


英 小娘 字 


gi 


に 届 還 
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英 大 文字 , 英 小文字 の よう に , それ が 何で ある か 明 ら 
か な と き は 省略 し て も か まい ませ ん 。 
次 の 例 は 論理 値 の 構文 図 で す 。 


これ は , 論理 値 と は true また は false と いう 文字 列 で 
表す こと を 意味 し ます 。 ま だ, 和 円 は , 円 と 同じ 意味 に 
使わ れ ま す 。 

最後 の 例 と し て 四則 演算 と し カッコ の み を 使う 式 の 構文 
を 表し て み ま す 。 演算 の 優先 順位 は カッ コ の な か が 一 番 
高く , 次 に 乗除 算 , そし て 加減 算 の 順 し し ます 。 定 数 は 
符号 の な い 整 数 と し ます 。 


変数 前 


定数 


加減 演算 子 


ここ で “A 十 2*※B” と いう 文字 列 が 式 と し て 正しい 
構文 に な っ て いる か この 図 か ら 調 べ て み ま し ょ う 。 

式 の 構文 図 を みる と " A" は 加減 演算 子 で は な い の で , 
項 で ある こと が わか り ま す 。 項 の 構文 図 を 見 る と 因子 と 
な っ て いる の で , 因子 の 構文 図 を 見 ます 。 因 子 は 変数 , 
定数 ペ カッ コ の どれ か で す が , 変数 。 名 前 それ ぞ れ の 構 
文 図 を 見 る と 結局 “A” と いう 名 前 の 変数 で ど あ る こと が 
わか り ま す 。 さ る ら に 構文 図 を 逆 に 戻る と “A” は 因子 だ 
と わか り ま す 。 さ る さらに 項 へ 戻っ て , “A”" は 因子 で , 次 の 
文字 の “ 二 ” は 項 の 構文 図 の 中 の 乗除 演算 子 で は な い の 
で , “A”" まで が 項 ほ な り ま す 。 

次 の “+" は , 式 の 構文 図 か ら 加 減 演算 子 ど と わか り 
ます 。 こ の 矢印 を る きら に た どる と , “2 "以下 の 文字 列 は 
項 で な けれ ば な り ま せん 。 項 , 因子 , 乗除 演算 子 の 構文 
図 を 見 る と , "2" は 因子 ,“*” は 乗除 演算 子 。 そし て 
^B”" は 因子 ど と わか り ま す 。 こ れ で “2*B"” が 項 で あ 
る と わか り ま す 。 

式 の 構文 図 へ 戻り , 全体 を 整理 する と “A" は 項 で あ 
り , “2*B"” が 項 ど と わか っ た だ ので, 結局 , 項 と 項 と を 
加減 演算 子 で 結ん だ ど “A 二 2*B"” は 式 で ある こと が わ 
か り ま す 。 

で は , “A 十 *B" は 式 と いえ る で し ょ うか 。 こ れ は 構 
文 図 で 調べ る と “A" は 項 , “ 十 " は 加減 演算 子 と わか り 
ます が , 次 の “*B" が 項 ほ と いえ ませ ん 。 項 の 最初 は 因 
子 の は ず で す が , “*" は 因子 で は あり ませ ん 。 


2-2 言語 の 表し みた だ 
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この よう に , 構文 較 を た どれ ば , 文字 列 が 文法 上 正 し 
いか どう か わか り ま す 。 

まだ , “A 十 2*B" と いう 式 で は “A”" と “2*B" 
が 項 で , “ 十 " が 加減 演算 子 で すか ら , 計算 の 順序 は , 
^(A 十 2) * ま B" で な くく “A 十 (2 *B)" で ある こと 
も わか り ま す 。 

文章 で 説明 し た の で , 少々 複雑 で す が , 構文 図 と 見 比 
べ され ば わか る と 思い ます 。 


ンー 廊 流 書 を つく る 


プロ グラ ム 言 語 は 構文 図 あ 使っ て 表し ます が , これ 
だ け で 言語 の すべ て が 表せ る わけ で は あり ませ ん 。 た 
と えば , 構文 図 の と ころ で 例 と し て あげ た 名 前 や 符号 の 
な い 整 数 は 。 この まま で は 長い 名 前 で も 何 桁 の 整数 で も 
よい こと に な っ て し まい ます 。 実際 に は , 名 前 は 16 文 字 
まで , な ど と いっ だ よう に いろ いろ な 制限 が つき ます 。 
この よう に 構文 図 び け で は 表せ な いこ と も , 文法 書 に は 
まとめ て お きま す 。 

文法 書 に は , “プロ グラ ム の 構成 "。 “サブ ルー チン や 関 
数 の 宣言 ",“ 文 ", “標準 関数 ”" …… と いう よう に 項目 別 
に まとめ ます 。 ま た だ , 文法 書 に は あい まい な と ころ を 残 
る ず , で きる 限り こま か いと ころ まで 書い て ぉ 〈 と , 後 
の 作業 が 楽に な り ま す 。 

コン パイ ラ を 制作 中 に 文法 書 は 何 度 か 修正 が 加わ る の 
が 普通 な の で , 完成 し た と き に 文法 書 を 書き な お すこ と 
に な り ま す 。 こ の と き , 他人 が 読ん で プロ グラ ム を つく 
れる 程度 に 図 や 例 を 入れ て 書か な く て は な り ま せん 。 し 
か し , これ は 大 変 な 仕事 な の で , 個人 レベ ル で は “で き 
る 限り " と いう こと に な り ま す 。 
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hi 


則 ] 川 


【/ 


4 


コン パイ ラ を つく る と 
き に 必要 な 式 や 制御 文 


の コン バイ ル 方 法 , 記 
号 表 の 管理 と いっ た 基 
本 的 な 手法 に つい て 解 
説 し ます 。 


う - / コン ザラ の 諸 友 あ まとめ る 
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コン パイ ラ を つく る 前 に は 仕様 書 を つく り ま す 。 仕様 
書 に は 

① コ ン パ イラ の 方式 

② コ ン パ イラ の 実行 環境 

⑨⑬③ ソ ー ス ・ プ ログ ラム の 形式 

(《 オプ ジ ェクト ・ プ ログ ラム の 形式 
コン パイ ラ の 操作 方 法 

コン パイ ラ に 付随 する ソフ トウ ェ ア の 仕様 

⑦ 出 力 す る エラ ー メ ッ セ ー ジ と エラ ー 回 復 の 方 法 

⑧ そ の 他 , 必要 と 思わ れる こと 

と いっ た だ こと を 書い て お きま す 。 

この 仕様 書 を つく る と き は , 対象 し な る プロ グラ ム 言 
語 の 文法 ど だ け で な く , 実行 環境 を よく 考え な けれ ば な り 
ませ ん 。 同じ プロ グラ ム 言 語 で あっ て も, 仕様 に よっ て 
操作 方 法 や オプ ジェ クト ・ プ ログ ラム の 形式 , 生成 きれ 
る オプ ジェ クト ・ ユ コー ド の 大 きる , 実行 速度 な ど が 異な 
っ て きま す 。 

それ で は , 仕様 書 の 中 に 書か れる 個々 の 内 容 に つい て 
見 て いき まし ょ う 。 


(① コ ン パ イラ の 方 式 

1 一 2 一 1 で 述べ た と お り , コン パイ ラ が 出力 する オ 
プ ジ ェ クト ・ プ ログ ラム の 形式 に よっ て , コン パイ ル 後 
の 処理 過程 が 異な り ま す 。 ですから, まず コン パイ ラ が 
どの よう な オプ ジェ クト ・ プ ログ ラム を 出力 する か を 決 
め な けれ ば な り ま せん 。 

次 に , パス (pass) の 回 数 を 決め ます 。 フ パス と は ソー 
ス ・ ブ ログ ラム か ら オ ブ ジ ェクト ・ プ ログ ラム を つく る 
まで に 通る 処理 の 各 段 階 の こと で す 。 1 回 の パス で ツー 


9-7 コン ン 『 プ ラ の 大 を 南 め る 


ス ・ プ ログ ラム が 1 回 読み 込ま れ ま す 。 ツ ソー ス ・ ブ ログ 
ラム を 1 回 読み 込ん を だ だ け で オプ ジェ クト ・ プ ログ ラム 
を つく る 方 式 を 1 パス 方 式 , 2 回 読み 込む 方 式 を 2 パス 
方 式 し いい ます 。 中 に は 3 パス 以上 の も の も あり ます 。 
各 パ ス を パス 1 。 ラパス 2 と いっ た 具合 に 呼び ます 。 2 フ \ 
ス 以 上 の 方 式 の コン マイ ラ の 中 に は , ツー ス ・ プ ログ ラ 
ム を 読み 込む 『 の は パス 1 だ け で , パス 2 以降 は 前 の パス 
で 出力 し た 中 間 形 の プロ グラ ム だ け を 読み 込む 方 式 の も 
の も あり ます 。 


加 証 区 1 バス 方 式 と 2 バス 方 式 


人 @ 2 バス 方 式 
(中 間 形 の プロ グラ ム を 使用 する ) 


人 @ 2 バス 方 式 ( ソー ス ・ プ ログ ラム を 2 回 読む ) 


コジ パイ ラ 
(パス !) 


コン パイ ラ 


(パス | ) 


〈⑦ コ ン パ イラ の 実行 環境 

コン パイ ラ の 実行 環境 を 明確 に し ます 。OS を 使う な 
ら その 種類 と バー ジョ ン , パソ ユン の 機種 名 , 最低 必要 
な メモ リ 容 量 (で きれ ば メモ リ ・ マ ッ プ も ) と 外部 記憶 
装置 , 一 時 的 に 使う ファ イル と を その 編成 な ど は 明らか に 
せ ね ば な り ま せん 。 ま た だ た , コン パイ ラ 以 外 に 必要 と する 
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プロ グラ ム は 何 か が (た と を ば エディ タ や リン カ な ど ), ま 
だ それら 6 の うち で 新た に つく ら な けれ ば な ら な いも の は 
どれ か , と いっ だ ソフ トウ ェ ア 環 境 $ も まとめ て お きま す 。 


⑬ ソ ー ス ・ プ ログ ラム の 形式 

ここ で は コン ピュ ー タ の 中 (メモ リ 上 や ファ イル 上 ) 
で の ソー ス ・ ブ ログ ラム の 形式 を は っ きり る せま す 。 

OS 下 の コ ン ッ パイ ラ な ら , ツー ス ・ プ ログ ラム は その 
OS に 付属 の エディ タ で 入力 る され, テキ スト ・ フ ァイル と 
し て 記憶 る れ ま す 。 を そし て 行 の 区 切り や ファ イル の 終わ 
り の 印 に は , 各 OS が 独自 に 定義 し て いる 制御 文字 が 使 
われ ます 。 そ の た だ た め , OS 下 で 走る コン パイ ラ で は , ツー 
ス ・ プ ログラム の 形式 を を その OS 標準 の テキ スト ・ フ ァ イ 
ル の 形式 に 合わ せな けれ ば な り ま せん 。CP/M な どの 
OS の 場合 文字 コー ド は JIS か ASCII ユー ド , テキ ス 
ト ・ フ ァイル の 終わ り を 示す 文字 に は SUB(16 進 で 1 A) 
が 使わ れ , 行 の 区 切り に は CR, LF(16 進 で 0 D, 0 A) 
の 2 文字 が 使わ れ て いま す 。 

OS を 使わ な い 場 合 に は , ソ ツー ス ・ プ ログ ラム を 
BASIC イ ンタ ー プ リタ の エディ タ を 使っ て つく る か , 
新た に 専用 の エディ タ を 作成 する か の いずれ か に な り ま 
す 。 BASIC イン ター プリ タ の エディ タ を 使う な ら , コン 
イラ 側 は その エディ イタ が ソー ス ・ ブ ログ ラム を 記憶 す 
る 形式 (一 般 的 に ま ポイ ンタ と いう も の を 含み 多少 複雑 ) 
に 合わ せる し か あり ませ ん 。 専 用 の エディ タ を 作成 する 
な ら ソ ツ ソース ・ プ ログ ラム の 形式 を 自由 に 決め る こと が で 
きる の で 2 文字 以上 の 空白 を 圧縮 し た り と いっ た こと が 
で ざま すず 


(《 オ プ ジ ェ クト ・ プ ログ ラム の 形式 
コン パイ ラ が 出力 する オブ ジェ クト ・ ブ ログ ラム の 形 
式 (メモ リ ま だ た は ファ イル 上 で の 形式 ) を 決め ます 。 
た と えば アセ ンプ ブラ 言語 の プロ グラ ム を 出力 する コン 


3-7 コン パイ ラ の 人 様 を を め る 


2 パイ ラ な ら , オブ ジェ クト ・ プ ログ ラム は その アセ ャ ンプ 
ラ の ソー ス ・ プ ログ ラム の 形式 に し な けれ ば な り ま せん 。 
再 配 置 可能 な プロ グラ ム を 出力 する コン パイ ラ な ら 6, 前 
出 の 表 1- 1(19 ペ ー ジ ) の よう に 機械 語 や 再 配置 情報 , 
リン タク 情報 が だ どの よう に な っ て いる か まとめ て お け ば よ 
いで し ょ う 。 直 接 機 械 語 を 出力 する コン パイ ラ は , 実行 
時 に 必要 に な る 4 特殊 コー ド や 値 を オプ ジェ クト ・ ブ ログ 
ラム 中 に 埋め 込ん で 出力 する 場合 が あり ます 。 こ れ ら が 
オプ ジェ クト ・ プ ログ ラム 上 に どの よう に 配置 され, 何 
を 意味 し , どう 表現 る きれ て いる の か を まとめ て お か な け 
れ ば な り ま せん 。 


コン パイ ラ の 操作 方 法 

ここ で は , コン パイ ラ の 起動 方 法 。 コン パイ ラ に 対す 
る いろ いろ な 指定 (オプ ショ ン と か スイ ッ チ と 呼ば れる ) 
の し か た と 意味 な ど , 起動 か ら 終 了 ま で の 操作 方 法 を ま 
と め て お きま す 。 


コン パイ ラ に 付随 する ソフ トウ ェ ア の 仕様 

ュ ン バイ ラ 以 外 に 作成 し な けれ ば な ら な い プ ログ ラム 
が あれ ば その 仕様 も 決め ます 。 た と えば コン パイ ラ が 再 
配置 可能 な プロ グラ ム を 出力 する な ら リ ンカ が 必要 に な 
り ま す 。OS 標準 また は 市 販 さ る れ て いる も の を 使わ ず に 
専用 の リン カ を 作成 する な ら , その リン カ の 仕様 書 も つ 
くら ね ば な り ま せん 。 


(〈⑦ エ ラー メッ セー ジ と , エラ ー 回 復 の 方 法 

コン パイ ラ が 出力 する エラ ー メ ッ セ ー ジ と 意味 。 そし 
て エラ ー に 対す る エラ ー 回 復 の 処理 を まとめ て お きま す 。 
この 段階 F エ ラー メッ セー ジ を まとめ て お く 〈《 と コン フラ パイ 
ル の エラ ー チ ェ ッ ク の 設計 が 楽に な り ま す 。 
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⑧ そ の 他 , 必要 と 思わ れる すべ て の こと 

これ は , コン パイ ラ の 設計 に 必要 と 思わ れる こと , た だ 
と えば 将来 の 拡張 予定 や 他 の コン ピュ ー タ へ の 移植 の た 
め の 設 計上 の 注意 も いっ た こと な ど で す 。 


以上 の よう な 事柄 を まとめ , 一 冊 の 仕様 書 を つく り ま 
す 。 こ の 仕様 書 あ も と に し て コン マイ ラ の 概要 設計 , 詳 
細 設 計 を し , コー ディ ング , デバ ッ グ そし て 完成 と な り 
ます 。 作業 を 進め て いく うち に 仕様 書 の 内 容 と 食い 違っ 
て きた ら , 仕様 書 を 修正 する よう に 心がけ て くだ さい 。 


ソー ンジ 学 匂 解 好 


これ より , コン パイ ラ の 設計 に 必要 な いろ いろ な 手法 
を , BASIC や FORTRAN, Pascal と いっ た だ 言語 を 例 に 
と りな が ら 解 説 し て いき ます 。 た だ し , 解説 の た め 正 式 
の 規格 や 文法 か ら 6 多少 逸脱 し て いる と ころ が ある の で 注 
意 し て て だ さい 。 また , 解説 の 中 で 使っ て いる 機械 語 ( ア 
セン プラ 言語 ) は Z80 用 (8 ビッ ト CPU) で す 。 


3-2-1 ソー ス ・ プ ログ ラム の 読み 込み 

ツー ス ・ プ ログ ラム は パソ コン の 場合 ,、 ファ イル か メ 
モリ に 記憶 きれ て いる の が 一 般 的 で す 。 フ ァイル 上 に ソ 
ー ス ・ プ ログ ラム が ある 場合 は 図 3-2 の よう に な っ て いる 
こと が 多く , コン パイ ラ は それ を 1 行 単位 で 読み 込み ま 
す 。 読 み 込 まれ た 1 行 は 図 3-3 の よう に メモ リ に 記憶 し ま 
す 。 メ モリ 上 に ソー ス ・ ブ ログ ラム が ある 場合 も , 同じ 
よう に 1 行 分 を 別 の 領域 ヘコ ピー し た り , 直接 アク セス 
し た り し まず 。 

ソース ・ プ ログ ラム の 読み 込み の 部 分 を 一 つの サブ ル 
ー チ ン と し て お くく と, ソー ス ・ ブ ログ ラム の 形式 が 異な 
る 他 の パソ コン に 移植 する と きも この 読み 込み サブ ルー 
チン だ け を 修正 する だ け で よい こと に な り ま す 。 
テキ スト ・ フ ァイル の 形式 

ファ イル の 先頭 


ンー ンー ー ) ーー 
| 行 分 の | 行 分 の | 行 分 の | 行 分 の 
| NE |Eou| 守谷 の |Eou| 幸人 の EOL| lu| 4 等 半 | ol gor| 


代 フ ァ イ レ は シー ケン シャ ル ・ フ ァイル 

信 文 字 の コー ド は JIS コー ド ま た は ASCII 

人 @ 行 の 区 切り EOL (End of Line) に は CR,LF(I6 進 で 0 D, 0 A) の 2 文字 が 使わ れ て いる 。 
⑱ フ ァイル の 終わ り EOF (End of file) に は SUB (|6 進 で 1 A) の | 文字 が 使わ れ て いる 。 
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加 K 評 ソー ス ・ プ ログ ラム 1 行 分 の 入力 バッ ファ 形式 
① テキ スト 内 に NUL コー ド (16 進 で 00 ) を 含ま な い 場 合 


読み 込ま れ た | 行 分 の ソー ス ・ プ ログ ラム 


0 | 2 3 4 5 四 MR 
ロ 自 回 回 IE BR 症 加 回 自 回 吉男 較 
| 


os [le 


人 @NUL コ ー ド に より 行 の 終わ り を 示す 方 法 行 の 終わ り を NUL コ ー ド で 示す 


(〈② テキ スト 内 に NUL コー ド を 含む 可能 性 が ある 場合 


読み 込ま れ た | 行 分 の ソー ス ・ プ ログ ラム 


| 行人 の 3 4 5 6 7 & 9 IO II 12 13 14 15 16 7 18 |I9 20 2 
Mo 1 間 回 回 回 問 回 団 回 E ロ | 9 


読み 込ん だ 
| 行 分 の 文字 数 


久 読 み 込ん だ 文字 数 を 記憶 し て お き 行 の 終わ り を 知る 方 法 


3-2-2 字句 の 解析 
読み 込ま れ た ツー ス ・ プ ログ ラム は 字句 解析 を し た 後 , 
次 の 構文 解析 に 必要 な トー クン を 求め ます 。 
トー クン に は , 変数 名 や サブ ルー チン 名 な どの 名 前 , 
数 値 定数 や 文字 (また は 文字 列 ) 定数 な どの 定数 、 コロ 
ン (: ) や カン マ (,), 演算 子 (キー※ ン ) な どの 区 切り 記 
号 , そし て あら か じ め 意 味 が 決め られ て いる 予約 語 と い 
っ だ も の が あり ます 。 
予約 語 と は BASIC 言語 で いえ ば “PRINT" や ゃ 
“INPUT" と いっ た 語 で , 命令 や 特定 の 値 を 表し ます 。 
で すか ら , 予約 語 に な っ て いる 語 は 変数 名 や サブ ルー チ 
ン 名 な どの 名 前 に は 使え ませ ん 。 も し 誤っ て 名 前 の つも 
り で 使っ て も , コン パイ ラ は 予約 語 と し て 解釈 し て し ま 
いま す 。 
プロ グラ ム 言 語 の 種類 に よっ て は (た と えば FOR 
TRAN や PL/1I な ど ) 予約 語 が な いも の も あり ます 。 こ 
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の よう な 言語 で は トー クン の 並び か た だ けず 構文 を 判断 
し ます 。 た と えば PL/I で は 


| IF IF= ニ 0 THEN IF= ニ THEN*2: 


と いっ た 文 も 書け ます 。 し か し , 予約 語 の な い 言 語 は コ 
ン パ イラ の 構文 解析 部 が 複雑 に な り ま す 。 本書 で は 以後 , 
予約 語 を 持っ て いる も の と し て 説明 し て いき ます 。 

字 旬 解析 を する た め に は , まず トー クン に は 何 が ある 
か を 決め ね ば な り ま せん 。 を そこで, 対象 の プロ グラ ム 言 
語 の 文法 書か ら 関 係 す る 構文 を 抜き 出す こと か ら 始 め ま 
す 。 これから トー クン を 求め る サブ ルー チン を 設計 する 
わけ で す 。 

ここ で 仮想 的 な BASIC 言語 (整数 演算 だ け の , いわ ゆ ゅ 
る Tiny BASIC) に つい て , 字 勾 解析 に 必要 な 構文 を 抜 
き 出 し た 結果 , 次 の よう に な っ た と し ます 。 


文字 列 定 数 


3-2 学名 解放 
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区 切り 記号 


人 
DIA 


3-2 学 殺 解放 


次 に ,。 これ ら 6 の うち で トー クン と し て 構文 解析 へ 渡す 
べき 構文 を 決め ます 。 こ の 例 の 場合 


と な り ま す 。 

この あと は , 文法 上 の 制限 を 加味 し ます 。 こ の 仮想 
BASIC の 構文 で 注意 し な けれ ば な ら な い の は , 区 切り 
記号 の うち の “空白 ” と “ 行 の 終わ り " で す 。 区 切り 記 
号 の “空白” は 純粋 に トー クン と トー クン の 区 切り だ け 
に 使わ れる の に , 他 の 区 切り 記号 , た と えば 十 一 まな 
と ど は 区 切り 以外 に 演算 子 し と し て の 意味 も 持っ て いま す 。 
この 空白 は 構文 解析 に 渡し て も 意味 が な い の で , 字句 解 
析 を し だ たら 捨て て し まう よう に し ます 。 区 切り 記号 と し 
て の “ 行 の 終わ り " は 構文 解析 部 で 行 番号 を 識別 する た 
め に 必要 に な り ま す が , も し 構文 解析 で 必要 と し な い の 
な ら 空 白 と 同じ 扱い も し ます 。 

この BASIC 言語 の 字句 解析 する プロ グラ ム を リス 
ト 3-1 に 示し ます 。 こ れ は , NEC の PC-9801 の N88- 日 本 
語 BASIC(860) で つく り ま し た 。 キ ー ボ ー ド か ら 入 力 し 
た 1 行 の 文字 列 を ツー ス ・ プ ログ ラム と し て 字 名 解析 し , 
トー クン を その も の と を その 種類 を 表示 し ます 。 予約 語 
“END" を 含む 文字 列 が キー ボー ド か ら 入 力 る され る ま 
で , この 動作 を 繰り 返し ます (実行 例 3-1 参 照 )。 


49 


@ リ スト 3-1 


半 基 革 半 着 革 贅 区 区 ※※ デ 区 区 ※ 天 区 ※※※ 区 区区 区 


仮想 BAS1C の 字句 蟹 析 プ ログ ラム 


) 半 ※※※※※ 区 区 区 ※※ 区 区区 革 区 ※ 光 区区 ※※※※ 区 区 


DEFINT A-Z 
219 EOL$=CHR も (9 ) 

229 CHAR*=EOL$ 

239 TOKEN.CODE=9 


399 ′ ーーーー- トー クン の 表示 ----- 
319 PRINT 
3206 PRINT “ーーーーーーーーーー く Start >ーー ニ ーーーーーーー 3 


339 UMHILE TOKEN.CODE く >52 
349 60SUB %GET.TOKEN 
359 PRINT USING " コート" : 電柱 ト -2 ン : @'jTOKEN.CODE , TOKEN$ 


1939 xGET.TOKEN 
1949 " ーー-ーー 先行 する 空白 を 取る  ----- 

1959 UMHILE CHAR$=" 『 

1969 CHAR$=MID ま (SOU.LINE$,CP,1 ): CP=CP+1 

1979 MEND 

1989 " --ー--- 行 の 綴り ----- 

1999 IF NOT(CHAR$=E0L$) THEN 1169 

1199 GOSUB *READ.SOU 

1119 CHAR$=MID$(SOU.LINE$, 1 ,1): CP=2 

1129 TOKEN.CODE=9 

1139 TOKEN$="* 

1149 RETURN 

1150 “ ニー ニー ニー 変数 名 お よび 予約 語 ----- 

1169 IF NOT(CHAR$>="A' AND CHAR$ く ="Z") THEN 1349 

1179 TOKEN.CODE=1 

1189 TOKEN$="* 

1199  MHILE (CHAR$>=*A'" AND CHAR$<="Z") OR (CHAR$>="9" AND CHAR$ く ="9") 
1299 TOKEN$=TOKEN$+CHAR$ 

1219 CHAR$=MID$(SOU.LINE$,CP ,1 ): CP=CP+1 

1229 MEND 

1239 RESTORE 1299: READ N 

1249 FOR 1=1 TO N 

1259 READ RES.MORD$ 

1269 IF TOKEN$=RES . MDRD$ THEN TOKEN.CODE=I+49: RETURN 
1279 NEXT 1! 


1299 DATA 21 

1399 DATA DATA,DIM,END,FOR,G0,GOSUB , 60TO, IF , INPUT ,LET 

1319 DATA NEXT,PRINT,READ,REM,RESTORE , RETURN, STEP , STOP , SUB , THEN 
1329 DATA TO 

1336 ^ ーーーー- 数 値 定数 --ーーー 


数 
1349 IF NOT(CHAR$>="9" AND CHAR$ く ="9" ) THEN 1439 
1359 TOKEN.CODE=2 
1369 TOKEN$="『* 
1379 UHILE CHAR$>="9" AND CHAR$ く =*9* 
1389 TOKEN ま =TOKEN ま も +CHAR$ 
1399 CHAR ま =MID$(SODU.LINE ま ,CP, 1 ) : CP=CP+1 


1429 ” ーーーー- 文字 列 定数 ーー 
1439 IF NOT(CHAR$=CHR$( &H22 ) ) THEN 1559 
1449 TOKEN.CODE=3 

1459 TOKEN$=** 

CHAR ま =MID$(SODU.LINE ま ,CP,1 ) : 


CP=CP+1 


3-2 学 勾 解 巡 


UHILE CHAR ま く >CHR$( &H22 ) 
IF NOT(CHAR ま >=" " AND CHAR ま く <="_") THEN ※TOKEN.ERROR 
TOKEN ま =TOUKEN ま +CHAR ま ま 
CHAR ま =MID ま (SDU.L INE*,CP , 1 ) : CP=CP+1 
UEND 
CHAR*$=MID ま (SO0U.LINE*,CP , 1 ) : CP=CP+1 
RETURN 
ーーーーー 区 切り 記号 --ーーー 
1559 DEL IM も ="+ー※/( )=。j く >" 
1569 FOR 1=1 TO LEN(DELIM$ も ) 
1579 IF CHAR ま =MID ま (DEL IM も 1,1) THEN 1699 
1589 NEXT I 
15929 GOTO ※TOKEN.ERROR 
1699 TOKEN,CODE=9+ 1 
1619 TOKEN$=CHAR$ 
1629 CHAR ま =MID ま (SO0U.LINE*,CP , 1): CP=CP+1 
1639 IF TOKEN$=">" AND CHAR も ="=" THEN TOKEN.CODE=21: GOTO 1679 
1649 IF TOKEN$=" く <" AND CHAR$="=" THEN TOKEN.CODE=22: GOTO 1679 
1659 IF TOKEN$=" く " AND CHAR ま も =">" THEN TOKEN.CODE=23: GOTO 1679 
1669 RETURN 
1679 TOKEN ま =TOKEN$+CHAR ま 
1689 CHAR ま $=MID$(SOU,L INE ま も,CP , 1 ): CP=CP+1 
1699 RETURN 


1799 / ーーーー- エラ ー ーー---- 
1719 *TOKEN.ERROR 
1729 PRINT LEFT$(SOU.LINE$,LEN(SOU.LINE$)-1 ) 


PRINT TAB(CP-2)j』"^ Error 


*READ . SDU 
2949 LINE INPUT "※*",S0U.LINE ま * 
2959 SOU,LINE ま =S0U.L INE*$+E0L ま 
RETURN 


久実 行 例 3-1 


コー トド 
%199 an! A7,BTG。 CV992 紀 層 7 
コー ト ” 5 トー クッ コー ト * 
ドミ トー クン : 199 doi 
KW ト - ク ン : INPUT ゴート“ 
コー ド " * トー クン : AZ ※139 
ヨード" トニ クン 5: 。 コピ レト 
コーNT き ト - ク ン : BTG ゴート" * 
引き トー クン * コー ト * 
ms 衣 トー クン Cv992 に は 
%119 FOR 1=1 TO AZ STEP BTG6 コー ド " 
コ = ポ ” 9 トー クン EN 
コー ド T * トー クン コート " 
ョ ヨード き トー クン \149 NEXT I 
コー ト ~ トー クン 回 や 
PD トー クン 
ヨード" * トー クン : 
コー ド " * トー クン * 
コー ド * * トー クン * %159 END 
コー ド ツ ト - ク ン ヨード 
ゴー 1 ト - ク ン NT 


!ー ひ 1 】 
ビ ビ いひ は DGG の 0O ロ ロロ 

山 
と 。3 

ww 半 来 

1 1 m 

AN IN 

で 


3 


いひ 
は ぐい DG 


*129 1F 1>=CV962 THEN 149 
コー ト * トー クン 
コー ト * トー クン : 129 
コー ト * トー クン : IF 
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行 番号 200-230 が 初期 化 の 部 分 で , 変数 EOL$, 
CHAR $, TOKEN. CODE に 初期 値 を 与 を た を て いま す 。 
EOL $ は 行 の 終わ り を 識別 する だ ため の 文字 で , ここ で は 
NUL コー ド (00) と し て いま す 。CHAR$ は ソース ・ プ ロ 
グラ ム か ら 入 力 し た 1 行 分 の 文字 列 の うち , 次 に 処理 す 
る 1 文字 を 記憶 する も の で す 。 最 初 の 字句 解 析 で ソー 
ス ・ プ ログ ラム の 最初 の 1 行 を 入力 する た め , 初期 値 は 
EOL$ と 同じ 文字 に な っ て いま す 。 

行 番号 300 二 380 は , 字句 解 析 サ プルー チン (ラベ ル 
GET. TOKEN, 行 番号 1030-) を 呼び 出し , 得 ら 5 れ た 人 解 
析 結 果 を 表示 する 部 分 で す 。 字 名 解析 サ プ ブルー チン で 子 
約 語 “END" (トー クン ・ ユ コー ド は 52) が 得 ら れる まで 呼 
び 出 し と 表示 が 行わ れ ま す 。 

行 番号 1000 一 1740 ま で が 字 名 解析 サ プ ル ー チ ン で す 。 
この サブ ルー チン は 1 回 の 呼び 出し で 1 つの トー クン を 
取り 出す よう に な っ て いま す 。 を そし て , 取り 出さ れ た だ ト 
ー ク ン は TOKEN. CODE と TOKEN $ の 2 つの 変数 
に 入れ られ て きま す 。 TOKEN $ に は 取り 出る れ だ トー 
クン の 文字 列 そ の も の が 入り , TOKEN. CODE に は を 
の 種類 が コー ド と し て 入り ます 。 コ ー ド は 表 3-1 の よう に 
な っ て いま す 。 こ の ルー チン は 図 3-4 の よう な 構文 図 を も 
と に プロ グラ ミン グ し た も の で す 。 

行 番号 2000 二 2060 が ソー ス ・ ブ ログ ラム を 1 行 入力 す 
る サブ ルー チン (ラベ ル READ. SOU, 行 番号 2030) で , 
キー ボー ド か ら 入 力 さ れ た 1 行 分 の 文字 列 は 最後 に 
EOL $ が つけ 加え られ , 変数 SOU. LINE$ に 入れ ら 65 れ 
て きま ます 。 


3-2 学 殺 解放 


仮想 BASIC の トー クン ・ コ ー ド 


行 の 終わ り 
変数 名 
数 値 定数 END 
文字 列 定数 FOR 
GO 
GOSUB 
GOTO 
IF 」 
INPUT 
LET 
NEXT 
PRINT 
READ 
REM 
RESTORE 
RETURN 
ぐー STEP 
2 STOP 


SUB | 


※ コー ド 10 一 23 が 区 切り 記号 
コー ド 5070 が 也 約 語 


先行 する 空白 を 取る た め に 
行っ て いる ( 行 番号 1040 一 


10709 行 の 終わ り , 次 の 行 を ソー 


ス ・ プ ログ ラム より 入力 する 。 
( 行 番号 080 一!140) 


変数 名 お よび 予約 語 , 予約 語 の 
構文 は 変数 名 と 同じ な の で , 一 
様 変 数 と し て トー クン を 求め , 
その 後 予約 語 と 同じ トー クン が 
あれ ば 予約 語 と 判断 する 。( 行 番 
号 1150 一 1320) 


数 値 定数 ( 行 番号 |330 一 1410) 


文字 列 定数 ( 行 番号 1420 一 !530) 


区 切り 記号 , 2 文字 の 区 切り 記 
【 号 (>=, く =, > ) の 処理 に は 
区 切り 記号 注意 する 。( 行 番号 1540 一 1690) 


さき て, 字句 解析 の ルー チン は 図 3-4 の 構文 較 そ の まま に 
な っ て いる こと が わか る と 思い ます 。 それ は , 構文 図 が 
ュ ン パイ ラ 作成 時 の 一 種 の 概略 流れ 図 と し て 使え る と い 
う こと で す 。 構 文 図 か ら 字 名 解析 や 構文 解析 の 詳細 流れ 
図 , お よび プロ グラ ム を つく る と き の 規 則 ま と め て お 
きま す 。 
① 構 文 図 の 入口 と 出口 は , その 構文 を プロ グラ ム に し た 
と き サ プ ブルー デシ の エ シ ント リー と り タ ー シ 選 な り ま す 。 


注 ) ぐ … ぁ は eg の 内 容 が 2 の 
内 容 と 等 価 で ある こと を 示す 。 


Ye エラー : 


S 
に 一 致す る 支 字 
dkkosis また は トー クン な し 


注 1) 構 文 図 上 で 矢印 の 分 岐 
が な い 場合 も し 判断 
の 結果 , 終端 記号 と 等 
し く な いと な っ た と き 
は 構文 エラ ー と し ます 。 
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: | 次 の 廊 字 また は 
| トー クン を 読み 出す 


注 2) 構文 上 で 矢印 の 分 岐 が ある 場合 
も し 判断 の 結果 , 終端 記号 と 等 し 
く な いと な っ た と き は 分 岐 し て い 
る 矢印 の 方 向 へ 処理 を 移し ます 。 


3-2 学 殺 解放 


一 致す る 文字 | : 
また は トー クン な し | : 


次 の 文字 また は 
トー クン を 読み 出す 


③ < 非 終端 記号 >〉 は , 非 終端 記号 に 相当 する サブ ルー チ 


ン の 呼び 出し に な り ま す 。 


注 3) 構文 上 て 分 岐 が な い 場合 相当 する サ 
プル ー チ ン が 正しく 実行 され な か っ た 


と き ( 構 文 が 正しく な か っ た と き ) は 構 : 


文 エ ラー と し ます 。 し か し 。 サ ブル 一 
チン か ら 正 し く 実 行 さ れ た か どう か が 
渡さ れ な い 場 合 , この 判断 自体 が 必要 
あり ませ ん 。 


プル ー チ 
ST は 正しく 処理 
れ た が か 


Yes 
U V に 対す る 処理 


サブ ルー チン STUV は 正 
し く 処 理 さ れ な か っ た 


サ プ ブルー チン STUV は 正 
し く 女 理 さ れ な か っ た 
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サブ ルー チン 
DE は 正しく 処理 
され た か ? 


サブ ルー チン 
FG は 正しく 処理 
され た か ? 


サブ ルー チン DEFG 
は 正しく 処理 され な 
か っ た 


④ 矢 印 が 前 に 戻り , 繰り 返し に な っ て いる 構文 は プロ グ 
ラム も 繰り 返し に し ます 。 


次 の 文字 また は 
トー クン を 読み 出す 
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3-2 学 殺 和解 


| | Y に 対す る 処理 一 致し な か っ た 


次 の 文字 また は 
トー クン を 読み 出す 


いま まで の 例 で は , 構文 図 で 矢印 の 先 の 終端 記号 と 等 
し いも の が な か っ た り , 非 終 端 記号 に 相当 する サブ ルー 
チン を 実行 し て も 正しく 処理 され な か っ た 場合 な ど を エ 
ラー と し て いま し た が , 分 岐 が 出口 まで 通じ て いる と き 
は エラ ー の 処理 を し ませ ん 。 


サブ ルー チン 
J は 正しく 処理 
され た か ? 


次 の 文字 また は 
トー クン を 読み 出す 
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ゴー う 式 の コン ンマ プ ノ レ と 


コン パイ ラ の 作成 と いう と まず 式 の こと が 問題 に され 
る くら 6 らい, 式 の コン パイ ル は 重要 で す 。 こ の 項 で は , 代 
入 文 や IF 文 の 中 に 現われ る 式 を どの よう に すれ ば 機械 
語 (オブ ジェ クト ・ プ ログ ラム ) に 変換 で きる の か に つ 
いて 述べ ます 。 ま ず 式 の 構文 解析 の 諸 方 法 に つい て 解説 
し , 最適 化 , コー ド 生 成 に つい て も 触れ ます 。 


3-3-1 式 の 構文 解析 の 方 法 


構文 解析 に は 二 通 り の 方 法 が あり ます 。 第 一 の 方 法 は , 
字 名 解析 部 で 読み 込ま れ た 式 を 構文 解析 部 で いっ た ん 木 
構造 (tree structure) や 逆 ポ ー ラ ンド 記法 の よう な 中 間 
言語 に 変換 し て 最適 化し , ユー ド 生 成 部 で は この 中 間 
言語 か の ら オ ブ プ ジ ェ クト ・ プ ログ ラム を つく り 出 す 方 法 で す 。 
第 二 の 方 法 は , 構文 解析 の プロ グラ ム 自 体 を 木 構造 に 
する 方 法 で す 。 この 方 法 は コン パイ ラ を 再帰 的 に つく る 
こと で 実現 で どき ます 。 こ の 場合 構文 図 で 書か れ た 構文 を 
式 の 構文 解析 


AX(B 十 C/D) 十 E 


構文 解析 で 式 を 構文 解析 で 式 を 
木 構 造 に 変換 送 ポ ボー ラン ド 記 法 に 変換 


逆 ポ ー ラ ンド 記法 
ABCD/ 填 ※E 十 


3-3 式 の コン ン \ ア と 


その まま プロ グラ ム に し ます 。 も と も と 構文 図 は 文法 を 
表す の に 再帰 的 な 定義 を 使っ て いる か ら 6 です 。 この 方 
法 は 構文 解析 部 が 直接 , 最適 化 , コー ド 生 成 を 呼び 出し 
オブ ジェ クト ・ プ ログ ラム を つく り ま す 。 

以降 これ 6 二 通 り に つい て , 例 を 挙げ な が ら 解 説 し て 
いき ます 。 た だ し , 木 構造 の 中 間 言 語 を つく る 方 式 は 他 
に 比べ て 難し いた だ ため , 割愛 し まし た 。 


3-3-2 逆 ポ ー ラ ンド 記法 を 用 いて 
式 を コン バイ ル す る 


逆 ポ ボー ラン ド 記 法 は ポー ラン ド の 数 学者 カジ ど グ ゲ ィ ッ ツ 
が 提案 し た 記法 で す 。 普 通 の 式 が 


| 1 演算 子 変数 2 ( 例 .A 十 B) 
と 書く と ころ を 


| 変数 1 変数 2 演算 子 ( 例 . AB 十 ) 


と 書き ます 。“A 士 B” を 日 本 語 で “A に B を 加え る "と 
いう の に 似 て いま す 。 

も っ と 複雑 な 式 も 逆 ポ ー ラ ンド 記法 に で きま す 。 た と 
えば 


| A+ B プ (Cー2) 十 D*E | 


と いう 式 が ある と し ます 。 ここ で , 各 演 算 子 を “ 二 つ の 
引数 を 持つ 関数 ” と 考え て “2 十 3" を (2, 3) 十 の よ 
うに 表す と 


| ((A, (B, (C, 2) -) の +, (PBB*) 
と な り ま す 。 こ こ か ら カ ンマ と ( ) を 取り 除く と 


| ABC2- ノ +DE*+ | 
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と な り 逆 ポー ラン ド 記 法 に な り ま す 。 

逆 ポ ー ラ ンド 記法 の 他 に も ポー ラン ド 記 法 と いう 記法 
が ある の で す が , コン パイ ラ で は 逆 ポ ボー ラン ド 記 法 の ほ 
う が よ く 〈 使 われ る の で , 逆 ポ ボー ラン ド 記 法 の こと を 単に 
ポー ラン ド 記 法 と 呼ぶ こと が 多い よう で す 。 

で は , この 変換 を する プロ グラ ム の アル ゴリ ズム を 
説明 し ます 。 

初め に ここ で 例 と し て 使う 式 の 構文 を 定義 し て お きま 
に 湊 少 。 


区 切り 記号 
9 
① 〇 ぐ ⑨( 〇 の ( 〇 の 


加減 演算 子 


人 


3-3 式 の コン ン \ ア と 


普通 の 式 を 逆 ポ ボー ラン ド 記 法 に 変換 する と きま ず 考 え 
な けれ ば な ら な いこ と は , “演算 子 の 優先 順位 "の 処理 で 
す 。 も し 演算 子 問 に 優先 順位 が な いな 6, “A 一 B*C" 
は “AB 一 C*" と な り ま す 。 し か し 実際 に は 優先 順位 
が あり , これ は “ABC*ー" と する べき で す 。 を そこ で 
優先 順位 の 処理 に スタ ッ ク を 使い ます 。 そ し て 変換 の と 
き , 入力 され た 演算 子 と し スタッ ク ・ ト ッ プ の 演算 子 と を 
比較 し て 優先 順位 を 考慮 し ます 。 逆 ポー ラン ド 記 法 へ の 
変換 の 概要 を 図 に する と 図 3-6 の よう に な り ま す 。 
逆 ポ ー ラ ンド 記法 へ の 変換 の 概要 


逆 ポ ー ラ ンド 記法 普通 の 式 


次 に 考え を な けれ ば な ら な い の は , トー クン の 出現 順序 で 
す 。 ここ で 例 に 使っ て いる 式 の トー クン は 


で , 区 切り 記号 と し て の 空白 は トー クン と は し ませ ん 。 
この 式 の トー クン の 出現 順序 は , 構文 図 か ら 次 の よう に 
考え られ ます 。 


61 


62 


〇 ① 式 は 変数 名 , 定数 , “(" の いずれ か か ら 始 まる 。 

② 変 数 名 , 定数 , “)" の 次 に は , 加減 演算 子 , 乗除 演算 
子 ,。")”" の いずれ か が くる 。 

③ 加 減 演算 子 , 乗除 演算 子 , “(”" の 次 に は , 変数 名 , 定 
数 , “(" の いずれ か が くる 。 
変換 する 式 が この 出現 順 座 に し た が わな い 場 合 , エラ 
ーー 丘 し ます 。 


以上 の こと か ら , 式 を 逆 ポ ー ラ ンド 記法 に 変換 する ア 
ル ゴ リ ズム は 図 3-7 の 流れ 図 の よう に な り ま す 。 こ の 流れ 
図 を 使っ て 式 “A 填 B/(C 一 2) 十 D*E” を 逆 ポ ー ラ 
ンド 記法 に 変換 する 過程 を 図 3-8 に 示し ます 。 

次 に 逆 ポ ー ラ ンド 記法 の 式 を 機械 語 へ 変換 し ます 。 式 
を 機械 語 に 変換 する とき, 演算 の 中 間 結 果 を 一 時 的 に 記 
憶 し な けれ ば な ら な く 《 な る こと が し ば し ば 発生 し ます 。 
この よう な 場合 , ス タック 操 作 の 命令 (PUSH, POP な 
ど ) を 使っ て , 中 間 結 果 を スタ ッ ク に 積む せよ うな オブ ジ 
ェクト ・ コ ユ コード を つく り ま す 。 

逆 ポ ボーラ ンド 記法 の 式 を アセ ン ブ ラ 言語 に 変換 する 規 
則 は 次 の よう に な り ま す 。 た だ し 最適 化 を し な い 一 番 簡 
単 な 場合 で す 。 ま た だ , 生成 する コー ド は すべ て 16 ビ ッ ト 
の 符号 つき 整数 し し , オー バー フロ ー は 考え な いこ と に 
し まず 。 
① 逆 ポー ラン ド 記 法 の 式 は 左 か ら 右 へ トー クン 単位 で 入 
力 き れる も の と する 。 
トー クン が 変数 名 な ら 記 号 表 (後述 ) か ら そ の 変数 の 
アド レス を 求め 、 オブ ジェ クト ・ コ ユー ド と し て 


LD HL, (変数 の アド レス ) 


PUSH HL 」 


を 出力 する 。 た だ し , "PUSH HL "は 初め て の オブ 
ジェ クト ・ コ ー ド 生成 の と き に は 出力 し な い 。 


3-3 式 の ラン パイ と 


逆 ポ ー ラ ンド 記法 へ の 変換 アル ゴリ ズム の 流れ 図 


スタ ッ ク を 空 に する 
CHKSW<-0 


字句 解析 
次 の トー クン を 読む 


スタ ッ ク ・ ト ッ プ 
の 方 が 高い また | トー クン の 演算 子 
は 等 し い を PUSH す る 


スタ ッ ク よ り 演 算 
子 を POP す る 


スタ ッ ク よ り 演 算 
子 を POP す る 
演算 子 を 出力 


今 POP し た 
演算 子 を 出力 


スタ ッ ク よ り 演 算 子 
を POP す る 。 た だ し 
POP し た 演算 子 は 使 
わな い の て で 捨て る 。 


注 ) 演算 子 の 優先 順位 は 次 の 順 で ある 。“(" の 順位 を 低く する の が ミソ 。 
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上 カ ( 導 ー ラ ンド 
A 
A 
5 A 
了 し 雪 A 
B E A 
Pr A B 
/ 二 A B ] 
」 / 十 A B 
( 7 | As 
W が A B 
(@ 7 圭 A B 
( /+ AB C 
0 が 本 A BC 
コア イデ 年 | 渦 間 を 
2 ニコ そま 足 4 高中 思 
こま まず 間 1 商 華 人 
) ご ドア 呈 | AA 多 3 
7 首 生 骨 で ター 
PS 2 吾 | ABc z- 
沈 AB ョ ー デ 
bp + 胡 電 民代 己 ず 溢 
本 ABC ター ア エ BD 
* 3 内 全 だ メー アキ 
* 十 人 AE で 三 / キ D 
E * 十 ABC2ー/+D 
* 十 は ま ー ア メキ 了 ほ 時 | 
式 の 終わ り | * MM ほ 志 る ーー タダ 直 以 呈 
ABC 2 一 /+DE * 二 


逆 ポ ボーラ ンド 記法 へ の 変換 過程 


トー クン が 定数 な 6 オプ ジェ クト ・ コ ユー ド と し て 


PUSH HL 
LD HL, 定数 


を 出力 する 。 た だ し “PUSH HL" は 初め て の オブ ジェ 
クト ・ ユ ー ド 生成 の と き に は 出力 し な い 。 ま た , 定数 は 
0 32767 以 外 の 値 な ら エ ラー と する 。 

《④ ト ー ク ン が 演算 子 キ オー ネン な ら 次 の よう な オブ ジェ ク 
ト ・ コ ユー ド を 生成 する 。 


@ 加 算 ( 十 ) 


POP DE : HL の 値 に スタ ッ ク ・ ト ッ プ の 
ADD HL, DE : 値 を 加算 し , HL へ 入れ る 


e 減 算 (一 ) 

EX DE,HL : 

POP HL : ス タッ ク ・ ト ッ プ の 値 よ り HL 
OR A : の 値 を 減算 し , HL へ 入れ る 
SBC HL,DE : 


@ 乗 算 (*) 


POP DE :HL の 値 に スタ ッ ク ・ ト ッ プ 
CALLIMUL  : の 値 を 乗算 し , HL に 入れ る 。 


: 乗 算 (HL 一 HL *DE) は サブ 
: ル ー チ ン IMUL が 行う 。 


@ 除 算 ( ど ) 


EX DE, HL :HL の 値 を スタ ッ ク ・ ト ッ プ 

POP HL : の 値 で 除算 し , HL に 入れ る 。 

CALL IDIV  : 除 算 (HL 一 HL プ DE) は サ 
: プ ルー チン IDIV が 行う 。 


⑥ 逆 ポー ラン ド 記 法 の 式 に ミス が な けれ ば , し レジ ス 
タ に 演算 結果 が 入る よう な 機械 語 (アセ ンプ ラ 言 語 ) の 
オプ ジェ クト ・ コ ー ド が つく られ る 。 


以上 の こと か ら , た と えば 逆 ポ ー ラ ンド 記法 の 式 
“ABC2 一 / 寺 DE * 十 " を 機械 語 ( ア セン プラ 言語 ) に 変 
換 す る と, 図 3-9 の よう に な り ま す 。 

リス ト 3-2 は , これ まで の 説明 を も と に , キー ボー ド か 
6 入力 され た 式 を いっ た ん 逆 ポ ボー ラン ド 記 法 に 変換 し , 
続い て Z80 用 の 機械 語 (アモ ンプ ブラ 言 語 ) に 変換 する プ 
ログ ラム (N88 一 BASIC (86) で 作成 ) で す (実行 例 


3-3 式 の コン ン \ ア と 
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逆 ポ ー ラ ンド 記法 の 式 か ら 機械 語 へ の 変換 例 


オプ ジェ クト ・ コ ー ド 
, (4000H) 


, (4002H) 


, (4004H) 


HL 

IDIV 

DE 

HL DE 

注 ) 変数 名 と アド レス は 次 の 通り HL 

HL, (4006H) 
HL 

HL, (4008H) 
DE 

IAUL 

DE 

HL, DE 


3-2 参照)。 こ の プロ グラ ム で は , オブ ジェ クト ・ ブ ログ 
ラム が 16 進 数 で 1000 番 地 か ら , 変数 は 4000 番 地 か ら 始 ま 
る よう に な っ て いま す 。 を そして, ラン タイ ム ・ ル ー チ ン 
と し て 3000 番 地 に 乗算 (HL HL * DE), 3003 番 地 に 
除算 (HLー HL/DE) ルー チン が ある も の と し ます 。 

行 番号 1000 一 1430 が 普通 の 式 を 逆 ポ ー ラ ンド 記法 に 変 
換 す る 部 分 で . コンパイラ の 構文 解析 に 当たり ます 。 行 
番号 1440 一 2060 が 逆 ポ ー ラ ンド 記法 の 式 か ら オ ブ ジ ェ ク 
ト ・ ユ コード を 生成 する 部 分 で , コン パイ ラ の コー ド 生 成 
に 当たる 部 分 で す 。 


3-3 式 の コン ン ャ アレ 


@ リ スト 3-2 


100  ※%※※※※ 区 ※ 革 % 革 区 ※ 革 ※ 革 デ ※ デ 区 ※※ 区 区 
119 
129 ・ 遡 ポ ー ラ ンド 記法 を 用 いた 式 の コン パイ ル 


149 (Z80 CPU の 機械 語 に 変換 ) 
1609 美 半 洋 洋洋 甘 浜 甘 革 洋 革 革 洋 天天 天光 区 甘 甘 洋 革 洋 蘭 天天 区区 区 天天 贅 天 デ 天 


189 DEFINT A-Z 

129 DIM POL*(199 ) , DPRSTK*( 59 ) , SYMTBL* ま ( 29 ) 

299 DEF FNH2$(X! )=RIGHT$( "9"+HEX ま (X! ) ,2) 

219 DEF FNH4$(X! )=RIGHT$( "999"+HEX$(X! ) 4 ) 

229 DEF FNRH4$(X! )=RIGHT$(FNH4$(X!) 2)+LEFT$(FNH4$(X! ) ,2) 


24d EOL ま =CHR$( 9 ) 
50SUB *READ . SOU 


ーー ニー 普通 の 式 を 迎 ポ ー ラ ンド 記法 の 式 変 抱 >----- 9 


1969 PRINT "入力 され た 式 "jiIN.EXPR$ 

1979 PPTR=9: SPTR=1 

1989 OPRSTK$(9)=" “ 

1999 CHKSU=9: LFLG=-1 

1199 MHILE LFLG 

1119 GOSUB *GET.TOKEN 

1129 IF CHKSU<>9 THEN 1299 

1139 IF NOT(TOKEN.COHE=1 OR TOKEN.CODE=2) THEN 1179 

1149 PO0L ま (PPTR ) =CHR ま (TOKEN.CODE )+TOKEN$: PPTR=PPTR+1 
1159 CHKSM=1 

1169 GOTO 1339 

1179 IF TOKEN$ く >"(" THEN *SYNTAX,ERROR 

1189 DPRSTK$(SPTR )=CHR$(TOKEN.CODE )+TOKEN$: SPTR=SPTR+ 1 
1199 GOTO 1339 

1299 IF NOT(TOKEN.CODE >=12 AND TOKEN.CODE く =15 ) THEN 1279 
1219 CHKSM=9 

1229 UHILE SPTR<>1 AND TOKEN.CODE\2 く =ASC(0PRSTK$(SPTR-1 ) ) \2 
1239 PO0L ま (PPTR )=0PRSTK$(SPTR-1 ) : PPTR=PPTR+1 : SPTR=SPTR- 1 
1249 UEND 

1259 0PRSTK$(SPTR )=CHR$( TOKEN.CODE )+TOKEN$: SPTR=SPTR+1 
1269 GOTO 1339 

1279 IF NOT(TOKEN*=* )" ) THEN LFLG=9: GOTO 1339 

1289 UHILE SPTR<>1 AND MID$(OPRSTK$(SPTR-1 ) ,2) く >"(“* 

1299 PO0L ま (PPTR )=0PRSTK ま (SPTR-1 ): PPTR=PPTR+1 : SPTR=SPTR-1 
1399 UEND 

1319 IF SPTR=1 THEN xSYNTAX .ERROR 

1329 SPTR=SPTR- 1 

1339 UEND 

1349 IF TOKEN.CODE く >9 THEN *SYNTAX .ERROR 

1359 MuHILE SPTR<>1 

1369 IF MID$(OPRSTK ま (SPTR-1 ) ,2)="(" THEN xSYNTAX.ERROR 
1379 POL$(PPTR )=OPRSTK$(SPTR-1 ) :* PPTR=PPTR+1 : SPTR=SPTR-1 
1389 MEND 

1399 PRINT " 逆 ポ ー ラ ンド 記法 : 『』 

1499 FOR 1I=9 TO PPTR-1 

1419 PRINT MID$(POL ま (1),2)』" 「 


ーー ピー ピ 遡 ポー ラン ド 記 法 の 式 よ り オ ブ ジ ェ クト ・ コ ー ド を 生成 >----- 
1499 PRINT 
1599 PRINT " xx オフ "シド ェ クト ・ フ "ログ "ラム xx" 
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PRINT 
SYMTBL$(9)="$" 
LOCADR=&H1999 
PSHOTF=9 

FOR 1=9 TO PPTR-1 


TOKEN.CODE=ASC(POL*( I ) ): TOKEN$=MID も (POL$( 1 ),2) 


PRINT FNH4$(LOCADR)』" 「』 

IF NOT(TOKEN.CODE=1 ) THEN 1659 
60SUB xSYMTBL .SEA 
6C0SUB *PUSHOUT 
PRINT "2A':FNRH4$(VARADR ) 
PRINT TAB(15):"LD 
LOCADR=LOCADR+3 
GOTO 2969 

IF NOT(TOKEN.CODE=2 ) THEN 1739 
CONS ! =VAL( TOKENs* ) 
IF CONS! >&HZFFF THEN xGEN.ERROR 
GOSUB *PUSHOUT 
PRINT "21"jFNRH4$(CONS! ) 
PRINT TAB(15):"LD HL , "iTOKEN* 
LOCADR=LOCADR+3 
GOTO 2969 

IF NOT(TOKEN*="+") THEN 1899 
PRINT "D1': 
PPINT TAB(15) "POP DE 
PRINT FNH4 ま (LOCAHR+1)』" 19"』 
PRINT TAB(15):"ADD HL,DE * 
LOCADR=LOCADR+2 
50TO 2969 

IF NOT(TOKEN$="-" ) THEN 1919 
PRINT "EB': 
PRINT TAB(15):'EX 
PRINT FNH4$(LOCADR+1 )  “ 
PRINT TAE(15): "POP 
PRINT FNH4$(LOCADR+2 ) : “ 
PRINT TAB(15): "OR AT 
PRINT FNH4$(LOCADR+3)j』" ED52'』 
PRINT TAB(15): "SBC HL,DE* 
LOCADR=LOCADR+5 
GOTO 2949 

IF NOT(TOKEN$="x") THEN 1989 
PRINT "D1'j 
PRINT TAB(15)j "POP DE 
PRINT FNH4$(LOCADR+1 ):』" CD9939' 5 
PRINT TAB(15)j "CALL IMUL* 
LOCADR=LOCADR+4 
GOTO 2969 

IF NOT(TOKEN$="/" ) THEN xGEN.ERROR 
PRINT "EB': 
PRINT TAB(15): "EX DE ,HL * 
PRINT FNH4$(LOCADR+1)j" E1'j 
PRINT TAB(15): "POP HL* 
PRINT FNH4$(LOCADR+2)』" CD9339*: 
PRINT TAB(15): "CALL IDIV* 
LOCADR=LOCADR+5 

NEXT I 


PRINT 
PRINT " xx シン ホ ^ ル テーブ " ル xx%" 
PRINT 
FOR I=9 TO 19 
IF SYMTBL ま (1I)=" ま " THEN 2169 
PRINT FNH4$(&H4999+Ix2)』" 


"PUSH HL 『" 
*PUSHOUT 
IF PSHOTF=9 THEN PSHOTF=1: RETURN 


":SYMTBL*( 1 ) 


PUSH HL 


。 LD HL,( 変数 の アド レス 
HL,("jFNH4*(VARADR ) 』 "日 )" 


PUSH HL 
LD HL, 定 数 


POP QE 


ADD HL,DE 一 一 


EX DE。HL 


POP HL 
DR A 


SBC HL,DE 


” POP DE 
。 CALL IMUL 


。 EX DE,HL 
” POP HL 
”。 CALL IDIV 


3-3 式 の コン バア と 


PRINT “ES5': ^ PUSH HL 
PRINT TAB(15) "PUSH 

LOCADR=LOCADR+1 

PRINT FNH4$(LOCADR): " 


RETURN 
3 記号 表 の 検索 お よび 登録 
*SYMTBL . SEA 


FOR J=9 TO 12 
IF SYMTBL ま (J)=" ま " THEN 2339 
IF SYMTBL ま (J)=TOKENS THEN 2359 
NEXT J 
PRINT: PRINT "SYMBOL TABLE OVERFLOU* 
END 
SYMTBL*(J)=TOKEN$ 
SYMTBL$( J+1 )="$* 
VARADR=&H4099+J※2 


*SYNTAX .ERROR 
PRINT: PRINT "SYNTAX ERROR" 


*GEN.ERROR 
PRINT: PRINT "CODE GENERATION ERROR* 
END 
字句 蟹 析 サ ブル ー チ 
*GET.TOKEN 
先行 する 空白 を 取る 


MHILE CHAR$=" 
CHAR$=MID ま (SOU.LTINE ま ,CP, 1 ): CP=CP+1 


り 
IF NOT(CHAR$=E0OL ま ) THEN 5149 
TOKEN.CODE=9 


IF NOT(CHAR$>="A" AND CHAR$ く ="Z") THEN 5239 
TOKEN.CODE=1 
TOKEN$=** 
UMHILE (CHAR ま >="A" AND CHAR$ く ="Z") OR (CHAR$>="9" AND CHAR$ く = "の" ) 
TOKEN も =TUKEN$+CHAR$ 
CHAR$=MID ま (SOU.LTINE ま ,CP , 1 ): CP=CP+1 


IF NOT(CHAR$>="9" AND CHAR$ く ="9" ) THEN 5329 
TOKEN.CODE=2 
TOKEN*="" 
UHILE CHAR$>="9" AND CHAR$ く =*9* 
TOKEN も =TOKEN$+CHAR$ 
CHAR$=MID ま (SOU.L INE ま ,CP, 1 ) : CP=CP+1 


DELIM ま ="( )+ー ュー 
FOR 1=1 TO LEN(DELIM$) 

IF CHAR$=MID ま も (DELTM$, T ,1) THEN 5379 
NEXT 【I 
GOTO TOKEN.ERREOR 
TOKEN.CODE=9+【 
TOKEN$=CHAR$* 
CHAR$=MID ま (SOU.LINE ま ,CP ,1 ): CP=CP+1 
RETURN 
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5419 
5429 
54 39 
5449 
5459 
o989 
6919 
6929 
6939 
6940 
6959 
669 
6979 


ーーーーー 自 叶う ーーーーー 
*TOKEN.ERROR 


PRINT LEFT ま (SO0U.LINE ま $,LEN(SOU.L INE ま )-1 ) 
PRINT TAB(CP-2)』"^ Error" 
END 


*READ . SOU 

LINE INPUT “ 式 を 入力 : ",IN.EXPR$ も 
SQU.L INE$=IN.EXPR$+EUDL ま も 

CHAR* ま =MID ま (SDU.LINE$, 1 ,1 ): CP=2 
RETURN 
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久実 行 例 3-2 


式 を 入力 : A+ B/( C-2 ) + DE 


らら < 普通 の 式 を 逆 ポ ー ラ ンド 記法 の 式 に 変換 


入力 され た 式 : A + B/( C-2 ) + DE 
逆 ポ ー ラ ント 記法 : A BC2-ー/+DE *+ 
ーーーーー く 。 逆 ポ ー ラ ンド 記法 の 式 よ り オ ブ ジ ェクト ・ コ ー ド を 生成 
オフ "シュ ク ト ・ フ 2502" ラム 
1999 2A9949 LD HL , (4999H) 
1993 E5 PUSH HL 
1994 2A9249 LD HL ,(4992H ) 
1997 E5 PUSH HL 
1998 2A9449 LD HL ,(4994H) 
199B E5 PUSH HL 
199C 219299 LD HL ,2 
199F EB EX DE ,HL 
1919 E1 POP HL 
1911 BZ OR A 
1912 ED52 SBC HL,DE 
1914 EB EX DE ,HL 
1915 E1 POP HL 
1916 CD9339 CALL IDIV 
1919 D1 POP DE 
191A 19 ADD HL,DE 
191B E5 PUSH HL 
191C 2A9649 LD HL ,(4996H) 
191F E5 PUSH HL 
1929 2A9849 LD HL ,(4998H) 
1923 D1 POP DE 
1924 CD9939 CALL IMUL 
1927 D1 POP DE 
HL,DE 


る て , ここ まで が 逆 ポ ー ラ ンド 記法 を 使っ て 式 を コン 
2 パイ ル す る 方 法 な の で す が , オブ ジェ クト ・ プ ログ ラム 
を よく 見 る と 無駄 な PUSH や POP 命令 が 生成 され て 
いま す 。 た と えば 逆 ポ ボー ラン ド 記 法 で 


A 19 B ※* 十 


と いう 式 は 

LD HL, (変数 人 の アド レス ) 
PUSH HL 

LD HL, 19 

PUSH HL 

LD HL, (変数 B の アド レス ) 
POP DE 

CALL IMUL 

POP DE 

ADD HL, DE 


と いう オブ ジェ クト ・ プ ログ ラム に な り ま す が , 


LD HL, (変数 B の アド レス ) 
LD DE, 19 

CALL IMUL 

LD DE, (変数 へ の アド レス ) 
ADD HL, DE 


と すれ ば 無駄 な PUSH, POP 命令 が な く な っ て , 効率 が 
良く な り ま す 。 こ の よう に プロ グラ ム の 効率 も 上 げ る た 
め の 処 理 が 最適 化 で す 。 以 下 で は 逆 ポ ー ラ ンド 記法 の 式 
を オブ ジェ クト ・ コ ー ド に 変換 する と き の , 割合 簡単 に 
で きる 最適 化 に つい て 説明 し ます 。 

無駄 な PUSH, POP 命令 を 生成 きせ な いな いよ うに 
する た め に は 演算 の 順 座 を 変え た て や り ま す 。 つ まり 以下 
の 規則 の よう に , ユー ド 生 成 時 に まだ ロー ド す る 必要 が 
な い 変 数 や 定数 は スタ ッ ク に 積み , 必要 に な っ た と き ス 


3-3 式 の コン パ ア と 
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タッ ク か ら 取 り 出 すこ と に する の で す 。 
① 逆 ポー ラン ド 記 法 の 式 は 左 か ら 右 へ トー クン 単位 で 入 
力 き され る も の と する 。 
トーク ン が 変数 名 や 定数 な ら 5 スタック に PUSH する 。 
トー クン が 演算 子 な ら , スタ ッ ク の 先頭 か ら 二 つ の 変 
数 名 や 定数 , ある い は 式 の 中 間 結 果 を 示す マー ク な ど を 
POP し , 表 3-2 を 用 いて オブ ジェ クト ・ コ ユー ド を 生成 す 
る 。 こ の 表 は “x y 演算 子 " ( 二 項 演算 ) の オブ ジェ 
クト ・ コ ユー ド を 生成 する た め の も の で , Y は 初め に スタ 
ッ ク か ら 5POP し た も の , x は 二 番 目 に スタ ッ ク か ら P 
OP し た も の を 示す 。 こ うし て コー ド を 生成 し た 後 。 ス 
タッ ク に は 新た な 中 間 結 果 を 示す マー ク を PUSH し て 
お く 。 

以上 の こと を 流れ 図 に する と 図 3-10 の よう に な り ま す 。 
ここ で 表 3-2 は 二 項 演算 に 対す る オブ ジェ クト ・ コ ユー ド の 
生成 を 示す 表 と し て , 再帰 的 な 方 法 で 式 を コン パイ ル す 
る と き (3-3-3) に も 使い ます 。 

リス ト 3-3 が この 最適 化 を 取り 入れ た だ , 逆 ポー ラン ド 記 
法 を 用 いて 式 を コン パイ ル す る プロ グラ ム で す (実行 例 
3-3 参 照 )。 実 行 例 3-2 と 比べ る と オブ ジェ クト ・ プ ログ ラ 
ム が 小さ きく な っ て いま す 。 


3-3 式 の コン ン \ イ と 


2 項 演算 の オプ ジェ クト ・ コ ー ド 表 
① 加 算 お よび 乗算 の オプ ジェ クト (普通 の 式 で X 十 Y お よび X*Y) 


Y は 変数 名 Y は 中 間 結果 
加算 や 乗算 の よう に 普通 の 


PUSH HL ※| | PUSH HL ※| 式 で 表し て 
LD HL (X) LD HL, (X) LD DE, 人) X 演算 子 Y ニ Y 演算 子 X 
LD DE, (Y) LD DE Y と で きる 演算 の 場合 は 左 較 
演算 命令 の よう な オブ ジェ クト ・ コ 

演算 命令 演算 命令 ー ド を 生成 する 。 


上 

@ 加 
PUSH HL ※| PUSH HL ※| の 都 み に は 丈 
7 DLX の オプ ジェ クト を 生成 する 
LD DE X LD DE Y ADD HL. DE 


) の 乗算 
| 演算 久 令 | | | 演算 命令 | 頃合 ] の 部 分 に は 次 


の オプ ジェ クト を 生成 する 
ID DE, ①) LD DE Y CALL IMUL :IMUL は 乗 


算 (HL< 一 HL * DE ) 
演算 人 人 | 演算 命令 を 行う ラン タイ ム ・ 


ルー チン 


ーー ニュー トー 


② 減 算 お よび 除算 の オプ ジェ クト (普通 の 式 で バ メーY お よび X ノ Y) 


Ei ji 減算 や 除算 の よう に 普通 の 
PUSH HL PUSH HL EX DE HL 式 で 表し て 


LD HL (X) LD HL (X) LD HL (% 
LD DE, (Y) LD DE,Y ・ @ 流 邊 


演算 命令 | 演算 命令 | の 部 分 に は 次 
演算 命令 の オプ ジェ クト を 生成 する 


OR A 
PUSH HL ※| PUSH HL ※| SBC HL, DE 


EX DE, HL 
LD HL X LD HL X 


LD HL X の 除算 
LD DE, (Y) LD DE,Y [ 病 算 命令 ] の 部 分 に は 次 


| 演算 命令 | の オプ ジェ クト を 生成 する 
演算 命令 演算 命令 CALL IDIV :IDIV は 除算 
(HL 一 HL/DE) を 行 


LD DE.(Y) EX DE, HL か 2 


| 演算 命令 ] POP HL 


演算 命令 


※| 始め て の オプ ジェ クト ・ コ ー ド の 生成 の と き に は 出力 し な い 。 
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逆 ポ ー ラ ンド 記法 の 
式 よ り ト ー ク ン を 1 
つ 入 カ 


トー クン は ズ スタッ クベ ドー み 
変数 名 和 は 定数 ン を PUSH す る 


スタ ッ ク よ り ト ー ク ン 
を POP し Y へ 入れ る 。 


スタ ッ ク よ り ト ー ク ン 
を POP し X へ 入れ る 。 


逆 ポー ラン ド 記 法 の 式 
「X Y 演 算 子 」 の 
オプ ジェ クト ・ コ ー ド を 生成 


スタ ッ ク へ 式 の 中 間 結 
果 を 示す マー ク を 
PUSH す る 


3-3 式 の コン ッ パ ア と 


@ リ スト 3-3 


1 ※※% 革 洋 炎 ※※ 革 革 革 革 革 天 半 迷 ※% 区 区 区 区 天光 ※ 半 区区 区 区 基 ※ 基 区区 区 区 
119 
129 遡 ポー ラン ド 記 法 を 用 いた 式 の コン パイ ル 
139 “ 簡単 な 最適 化 を 行なっ た 例 
149 
159 (Z80 CPU の 機械 語 に 変換 ) 
169 
半 迷 革 炎 革 ※ 革 革 甘 ※ 半 区 XX※※※※※※X※※※X※※※※※※ 
189 
DEFINT A-Z 
DIM POL*(199 ) , DPRSTK ま (59 ) ,SYMTBL ま ( 29 ) 
DEF FNH2 ま (X!)=RIGHT ま ("9"+HEX ま (X!)。2) 
DEF FNH4$(X! )=RIGHT$( "999"+HEX$(X!),4) 
HEF FNRH4$(X!)=RIGHT$ も (FNH4$(X! ) ,2)+LEFT$(FNH4$(X1),2) 


EQL=CHR$(9 ) 
GOSUB *READ.SOU 


PRINT "入力 され た 式 : "iTIN.EXPR$ 
PPTR=9: SPTR=1 
DPRSTK$(9)="「『* 
CHKSU=9: LFLG=-1 
MHILE LFLG 
GOSUB *GET.TOKEN 
IF CHKSM<>9 THEN 1299 
IF NOT(TOKEN.CODE=1 OR TOKEN.CODE=2) THEN 1179 
PO0L*(PPTR ) =CHR$( TOKEN.CODE )+TOKEN$: PPTR=PPTR+1 
CHKSM=1 
GOTO 1339 
IF TOKEN$<>"(" THEN xSYNTAX .EPROR 
DPRSTK$(SPTR ) =CHR$( TOKEN .CODE )+TOKEN$: SPTR=SPTR+ 1 
GOTO 1339 
IF_NOT(TOKEN.CODE >=12 AND TOKEN.CODE<=15) THEN 1279 
CHKSM=9 
UHILE SPTR<>1 AND TOKEN.CODE\2 く =ASC(OPRSTK$(SPTR-1 ) ) \2 
PO0L ま (PPTR )=0PRSTK ま (SPTR- 1 ) : PPTR=PPTR+ 1 : SPTR=SPTR- 1 
UEND 
DPRSTK$(SPTR ) =CHR$(TOKEN.CODE )+TOKEN$: SPTR=SPTR+1 
GOTO 1339 
IF NOT(TOKEN$=")" ) THEN LFLG=9: GOTO 1339 
UHILE SPTR<>1 AND MID$(0PRSTK$(SPTR-1 ) ,2) く >"(“ 
P0L*(PPTR )=0PRSTK$(SPTR-1 ) : PPTR=PPTR+1 : SPTR=SPTR-1 
UEND 
IF SPTR=1 THEN xSYNTAX.ERROR 
SPTR=SPTR-1 
UEND 
IF TOKEN.CODE く >9 THEN xSYNTAX.ERROR 
MHILE SPTR<>1 
IF MID$(OPRSTK$ ま (SPTR-1 ) ,2)="(" THEN xSYNTAX.ERROR 
POL$(PPTR )=0PRSTK$(SPTR-1 ) : PPTR=PPTR+1 : SPTR=SPTR-1 
UEND 
PRINT " 遡 ポ ー ラ ンド 記法 : 
FOR I=9 TO PPTR-1 
PRINT MID$(POL*( 1),2)』" 
NEXT 
PRINT 


PRINT 
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1559 
1569 
1579 
1589 
1599 
1699 
1619 
1629 
1639 
1649 
1659 
1669 
1679 
1689 
1699 
1799 
1719 
1729 
1 739 
1749 
1759 
1769 
1779 
1789 
1799 
1899 
1819 
1829 
1839 
1849 
1859 
1869 
1879 
1889 
18929 
1999 
1919 
1929 
1939 
1949 
1959 
1969 
1979 
1989 
1999 
2999 
2919 
2929 


PRKINT "オフ "シリ ェクト ・ フ "ロク "ラム  *%" 1 


PRINT 

SYMTBL$ ま (9)="$* 
LOCADR=&H1999 

PSHOTF =9 

SPTR=9 

IF NOT(PPTR=1 ) THEN 1619 


X=ASC(POL ま (9 ) ) : X ま =MID ま (POL$( 9 ) , 2 ) 
IF X=1 THEN VARNA$=X$: GOUSUB *LDHLVAR: GOTO 1979 
IF X=2 THEN CONS ま =X$: GO0SUB LDHLCNS: GOTO 1979 


GOTO *GEN.ERROR 
FOR 1T=9 TO PPTR-1 
TOKEN.CODE=ASC(POL ま (1 ) ) : 


IF NOT(TOKEN.CODE=1 OR TOKEN.CODE=2) THEN 1669 


OPRSTK ま $(SPTR )=POL ま (1 ): 

GOTO0 1959 
X=ASC(OPRSTK$ ま (SPTR-2 ) ) : 
Y=ASC(OPRSTK*$(SPTR-1 ) ) 


TOKEN$=MID ま (POL*( 1 ),2 ) 


SPTR=SPTR+1 


X ま =MID ま (0OPRSTK ま (SPTR-2 ) ,2) 
Y$=MID$(OPRSTK*$(SPTR-1 ) , 2 ) 


IF NOT(TOKEN$="+" ) THEN 1749 


G0SUB *ADD.MUL 


PRINT FNH4$(LOCADR)j" 19'』 ”。 ADD HL,DE 


PRINT TAB(15)j』 "ADD 
LOCADR=LOCADR+1 
GOTO 1939 


HL,DE 


IF NOT(TOKEN ま ="-" ) THEN 1829 


GOSUB *SUB.DIV 

PRINT FNH4$(LOCADR ) : “ 
PRINT TAB(15)j "OR 
PRINT FNH4$(LOCADR+1 ) 
PRINT TAB(15):』 "SBC 
LOCADR=LOCADR+3 

GOTO 1939 


B7': OR Aa 
ED5Z'3 ^ SBC HL,DE 
HL,DE* 


IF NOT(TOKEN$="**") THEN 1889 


GOSUB *ADD .MUL 


PRINT FNH4 ま (LOCADR ) j" CD9939'』 。 CALL IMUL 


PRINT TAB(15)j "CALL 
LOCADR=LOCADR+3 
GOTO 1939 


IMUL 


IF NOT(TOKEN*="/*" ) THEN *GEN.ERROR 


GOSUB *SUB .DIV 


PRINT FNH4$(LOCADR )』" CD9339『 CALL IDIV 


PRINT TAB(15)』"CALL 
LOCADR=LOCADR+3 
SPTR=SPTR-2 
0PRSTK*(SPTR )=CHR*(3)+"* 
NEXT 1 


PRINT 

PRINT "  ※x シン ホ " ル ・ テ ー フ " ル 
PRINT 

FOR 1=9 TO 19 


IDIO" 


": SPTR=SPTR+1 


類 洋 


IF SYMTBL*( TI)=" ま " THEN 2949 


PRINT FNH4$(&H4999+Ix2)』 


加算 お よび 乗算 
*ADD . MUL 


" "iSYMTBL$( 1 ) 


IF NOT(X=1 AND Y=1) THEN 2139 


GOSUB *PUSHHL 


VARNA ま =X ま : GUSUB xLDHLVAR 
VARNA$=Y$: GOSUB *LDDEVAR 


RETURN 


IF NOT(X=1 AND Y=2) THEN 2189 
GOSUB *PUSHHL 
VARNA$=X$ ま : GOSUB xLDHLVAR 
CONS ま =Y ま も : GOSUB *LDDECNS 
RETURN 


3-3 式 の コン ン \ ア と 


IF NOT(X=1 AND Y=3) THEN 2219 
2199 VARNA$=X$: GOSUB *LDDEVAR 
2299 RETURN 

2219 IF NOT(X=2 AND Y=1 ) THEN 2269 

2229 GOSUB *PUSHHL 

2236 VARNA*=Y$: GOSUB *LDHLVAR 

2249 CONS$=X$: GOSUB xLDDECNS 

2259 RETURN 

226d IF NOT(X=2 AND Y=2) THEN 2319 

2279 GOSUB PUSHHL 

2289 CONS$=X ま $: GOSUB xLDHLCNS 

2299 CONS$=Y$: GOSUB *LDDECNS 

2389 RETURN 

2319 IF NOT(X=2 AND Y=3) THEN 2349 

2329 CONS$=X$: GOSUB xLDDECNS 

2339 RETURN 

2349 IF NOT(X=3 AND Y=1 ) THEN 2379 

2359 VARNA$=Y$: GOSUB *LDDEVAR 

2369 RETURN 

2379 IF NOT(X=3 AND Y=2) THEN 2499 

2389 CONS*=Y$: GOSUB *LDDECNS 

2399 RETURN 

2499 IF NOT(X=3 AND Y=3) THEN xGEN.ERROR 
2419 GOSUB xPOPDE 

2429 RETURN 

2439 "ーーーーーーーーーー 減算 お よび 除算 ーー---ーーーー 
2449 xSUB.DIV 

2459 IF NOT(X=1 AND Y=1 ) THEN 2599 

2469 GOSUB PUSHHL 

2479 VARNA$=X$: GOSUB LDHLVAR 

2489 VARNA$=Y$: GOSUB *LDDEVAR 

2499 RETURN 

2599 IF NOT(X=1 AND Y=2) THEN 2559 

2519 GOSUB *PUSHHL 

2529 VARNA ま =X$: GOSUB *LDHLVAR 

2539 CONS*$=Y$: GOSUB *LDDECNS 

2549 RETURN 

2559 IF NOT(X=1 AND Y=3) THEN 2599 

2569 GOSUB *EXDEHL 

2579 VARNA$=X$: GOSUB *LDHLVAR 

2589 RETURN 

2599 IF NOT(X=2 AND Y=1) THEN 2649 

2699 GOSUB *PUSHHL 

2619 CONS$=X$: GOSUB xLDHLCNS 

2629 VARNA$=Y$: GOSUB xLDDEVAR 

2639 RETURN 

2649 IF NOT(X=2 AND Y=2) THEN 2699 

2659 GOSUB PUSHHL 

2669 CONS$=X$: GODSUB xLDHLCNS 

2679 CONS*$=Y$: GOSUB xLDDECNS 

2689 RETURN 

2699 IF NOT(X=2 AND Y=3) THEN 2739 

2799 GOSUB EXDEHL 

2719 CONS$=X$: GOSUB xLDHLCNS 

2729 RETURN 

2739 IF NOT(X=3 AND Y=1 ) THEN 2769 

2749 VARNA$=Y$: GOSUB *LDDEVAR 

2759 RETURN 

2769 IF NOT(X=3 AND Y=2) THEN 2799 

2779 CONS$=Y$: GOSUB xLDDECNS 

2789 RETURN 

2799 IF NOT(X=3 AND Y=3) THEN xGEN.ERROR 
2899 GOSUB *EXDEHL 

2819 GOSUB xPOPHL 

RETURN 
%LDHLVAR ^ LD HL,( 変数 の アド レス ) 
60SUB *SYMTBL .SEA 


MMd 


PRINT FNH4$(LOCADR ) "2A':FNRH4$(VARADR ) 
2879 PRINT TAB(15):"LD HL,( "jiFNH4$(VARADR ) 』 "日 ) " 
2889 LOCADR=LOCADR+3 

2899 RETURN 

2999 *LDDEUVAR ^ LD DE,( 変数 の アド レス ) 

2919 GOSUB xSYMTBL .SEA 

2929 PRINT FNH4$(LOCADR ) : ” ED5B " :FNEH4$(VARADR ) 
2939 PRINT TAB(15):"LD DE ,("jFNH4 ま (VARADR) 』 日) " 
2949 LOCADR=LOCADR+4 

2959 RETURN 

2969 xLDHLCNS ^ LD HL, 定 数 

2979 CONS!=VAL(CONS$ ) 

2989 IF CONS!>&HZFFF THEN *GEN.ERROR 

2999 PRINT FNH4$(LOCADR )j" 21":FNRH4$(CONS ! ) : 

3899 PRINT TAB(15)j』"LD HL ," :CONS$ 

3919 LOCADR=LOCADR+3 

3929 RETURN 

3939 *LDDECNS ^ LD DE, 定 数 

3949 CONS!=VAL(CONS$ ) 

3859 IF CONS!>&H7FFF THEN *GEN.ERROR 

3969 PRINT FNH4$(LOCADR)』" 11"jFNRH4$(CONS ! ) : 

3979 PRINT TAB(15):"LD DE ," iCONS$ 

3989 LOCADR=LOCADR+3 

3999 RETURN 


3199 *EXDEHL EX DE,HL 
3119 PRINT FNH4$(LOCADR)』" EB'i 
3129 PRINT TAB(15)j "EX DE ,HL* 


3139 LOCADR=LOCADR+1 
3149 RETURN 


3159 *POPHL PP 析 。 
3169 PRINT FNH4$(LOCADR)』" E1": 
3179 PRINT TAB(15)j "POP に 


3189 LOCADR=LOCADR+1 
3199 RETURN 


3299 *POPDE ” POP DE 
3219 PRINT FNH4 ま (LOCADR)j" D1'j 
3229 PRINT TAB(15)j』 "POP DE " 


3239 LOCADR=LOCADR+1 

3249 RETURN 

3259 xPUSHHL ”。 PUSH HL 

3269 IF PSHOTF=9 THEN PSHOTF=1: RETURN 
3279 PRINT FNH4$(LOCADR)』" E5'』 

3289 PRINT TAB(15), "PUSH HL 

3299 LOCADR=LOCADR+1 


3319 "ーーーーーーーーーー 記号 表 の 検索 お よび 登録 ------ーーーー 
3329 xSYMTBL.SEA 

3336 FOR J=9 TO 19 

3349 IF SYMTBL*(J)=" ま " THEN 3399 

3359 IF SYMTBL ま (J)=VARNA も THEN 3419 
3369 NEXT J 

3379 PRINT: PRINT “SYMBOL TABLE OVERFLOM* 
3386 END 

3399 SYMTBL*(J)=VARNA$ 

3499 SYMTBL*$(J+1 )="$" 

3416 VARADR=&H4999+Jx2 


3449 XSYNTAX.ERROR 
3459 PRINT: PRINT "SYNTAX ERROR* 


3489 XGEN.ERROR 
PRINT: PRINT 


"CODE GENERATION ERROR" 
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xGET . TOKEN 

9 先行 する 空白 を 取る 

UHILE CHAR$=" 「* 
CHAR$=MID ま (SOU.LINE ま ,CP , 1 ) : CP=CP+1 


IF NOT(CHAR$=E0L ま ) THEN 5149 
TOKEN.CODE=9 


TOKEN.CODE=1 

TOKEN$=** 

UHILE (CHAR も >="A' AND CHAR$ く =*Z*) OR (CHAR$>="9" AND CHAR* く <="9" ) 
TOKEN も =TOUKEN$ も +CHAR ま 
CHAR$ も =MID ま (SOU.LINE ま ,CP ,1 ): CP=CP+1 


数 値 定数 
IF NOT(CHAR$>="9" AND CHAR$<="9" ) THEN 5329 
TOKEN.CODE=2 
TOKEN$=** 
UHILE CHAR$>="9" AND CHAR$ く =*9* 
TOKEN も =TOKEN ま も +CHAR$ 
CHAR$=MID ま (SOU.LINE ま ,CP ,1 ): CP=CP+1 


DELIM ま ="()+ー※/" 
FOR 1=1 TO LEN(DELIM$ ) 
IF CHAR$=MID$(DELIM$,1,1) THEN 5379 
NEXT 1I 
GOTO TOKEN.ERROR 
TOKEN .CODE=9+ } 
TOKEN$=CHAR$ 
CHAR ま =MID$(SOU.LINE ま ,CP, 1 ): CP=CP+1 


*TOUKEN.ERROR 
PRINT LEFT$*(SOU.LINE ま $,LEN( SOU.L INE ま )-1 ) 
PRINT TAB(CP-2)j』"^ Error" 


\READ . SOU 

LINE INPUT “ 式 を 入力 : ",IN.EXPR* 
SOU.L INE$=TN.EXPR$ ま +EOL* 

CHAR* ま =MID ま (SDU.L INE$, 1 , 1 ): CP=2 
RETURN 
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久実 行 例 3-3 
式 を 入力 : A + BZ/( C-2 ) + DE 
普通 の 式 を 迎 ポー ラン ド 記 法 の 式 に 変 操 


入力 され た 式 : 人 A 
遡 ポー ラン ド 記 法 : A 


+ B/( C-2 ) + DE 
月 じじ ー ズ メダ プ 下 密 生 


迎 ポー ラン ド 記 法 の 式 よ り オ ブ ジ ェクト ・ コ ー ド を 生成 
オフ "シリ ェクト ・ フ "ログ "ラム 
2A9949 HL ,( 4999H ) 
DE,2 


A 
HL , DE 
DE ,HL 
HL ,(4992H ) 
IDIV 
ED5B9449 DE ,(4994H ) 
19 HL ,DE 
ES HL 
2A9649 HL ,( 4996H ) 
EDSB9849 DE ,( 4998H ) 
CD9939 
D1 
19 


ラン 本" 上ル ・ テ ー フ ブル 類 半 


3-3-3 再帰 的 な 方 法 で 式 を コン バイ ル す る 
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これ は 構文 図 で 書か れ た よう な 再帰 的 な 構文 を その ま 
ま プ ログ ラム に する 方 法 で す 。 構 文 図 か ら プ ログ ラム を 
つる 場合 の 規則 に つい て は , 3-2-2 の 後半 部 を 見 て 
くだ きい 。 本書 第 2 部 の コン パイ ラ は この 方 法 で プロ グ 
ラミ ング る れ て いま す 。 

この 方 法 で は , 字 勾 解析 部 か ら 構 文 解析 部 へ 渡さ れる 
トー クン を 終端 記号 と し た 新た な 構文 図 を つく り ま す 。 
を そして, この 構文 図 か 6 3 -2-2 で 説明 し た 変換 規則 を 
も と に し て 流れ 図 や ゲロ グラ ム を つく り ま す 。 基 本 的 に 
は , この 作業 で コン パイ ラ の 構文 解析 部 を つく る こと が 
で きま す 。 

た と えば , 3-3-2 の 60 ペ ー ジ の よう な 式 の 構文 が あ 


っ だ と し ます 。 こ うい っ た 構文 を 持つ 式 で , 字 名 解析 か 
ら トー クン と し て 構文 解析 へ 渡る れる の は 変数 名 , 定数 , 
お よび 空白 を 除い た 区 切り 記号 で す 。 す る と , 構文 解析 
で 処理 し な けれ ば な ら な い 構 文 は 加減 演算 子 , 乗除 演算 
子 , 因子 , 項 , 式 た なり ます 。 トーク ン に 相当 する も の 
(変数 名 , 定数 , 空白 を 除い た 区 切り 記号 ) を 終端 記号 
と し て これ を 構文 図 に 書く と , 


と な り ま す 。 あ と は この 構文 図 か 6 流れ 図 や プロ グラ ム 
を つく れ ば よい の で す 。 こ の 構文 図 を 流れ 図 に する と 図 
3-11 の よう に な り ま す 。 

この 流れ 図 を ゲロ グラ ム に し だ た も の が リス ト 3-4 で す 。 
この プロ グラ ム で は , 変数 や 演算 と いっ た も の を すべ て 
16 ビ ッ ト の 符号 つき 整数 と し て 扱い , 演算 時 の オー バー 
フロ ー は 考え て いま せん 。 図 3-11 の ※1 一 6 に 相当 する 
部 分 で は 次 の よう な コー ド を 生成 する よう に し まし た 。 
この オプ ジェ クト ・ コ ユー ド で は , 中 間 結 果 を 一 時 スタ ッ 
ク に 記憶 する よう に し て いま す 。 


3-3 式 の コン ン \ ア と 
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※1 変数 を ロー ド す る オプ ジェ クト ・ コ ー ド を 生成 


PUSH HL 
LD HL, (変数 の アド レス ) 


た だ し “PUSH HL" は 初め て の オプ ジェ クト ・ コ ー 
ド の 生成 の と た ときには 出力 し な い 。 
※2 定数 を ロー ド す る オプ ジェ クト ・ コ ユー ド を 生成 


PUSH HL 
LD HL, 定数 


た だ し “PUSH HL" は 初め て の オブ ジェ クト ・ ュ コー 
ド の 生成 の と き に は 出力 し な い 。 


※3 加算 の オブ ジェ クト ・ コ ユー ド を 生成 
POP DE 
ADD HL, DE 


※4 減算 の オプ ジェ クト ・ コ ユー ド を 生成 


EX DE, HL 
POP HL 
OR A 
SBC HL, DE 


※5 乗算 の オプ ジェ クト ・ コ ユー ド を 生成 


POP DE 
CALL IMUL 


IMUL は 乗算 (HL HL * DE) を 行う ラン タイ ム ・ 
レー チン 


3-3 式 の コン フッ パイ と 


式 を 再帰 的 に コン パイ ル す る 場合 の 流れ 図 


減算 の オブ ジェ クト ・ 
コー ド を 生成 


乗算 の オブ ジェ クト ・ 除算 の オブ ジェ クト ・ 
コー ド を 生成 コー ド を 生成 
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変数 を ロー ド す る 定数 を ロー ド す る 次 の トー クン を 
オプ ジェ クト ・ コ ー ド オプ ジェ クト ・ コ ー ド 読む 
を 生成 を 生成 


次 の トー クン を 
読む 


※6 除算 の オブ ジェ クト ・ コ ユー ド を 生成 


EX DE,HL 
POP HL 


CALL IDIV 


IDIV は 除算 (HL 一 HL/DE) を 行う ラン タイ ム ・ 


ルー チン 


オブ ジェ クト ・ プ ログ ラム は 16 進 数 で 1000 番 地 か ら , 
変数 は 4000 番 地 か ら 始 まる よう に な っ て いま す 。 そして, 
ラン タイ ム ・ ル ー チ ン と し て 3000 番 地 に 乗算 (HL<H 
L* DE), 3003 番 地 に 除算 (HL し HL し DE) ルー チ 
ン が ある も の と し ます 。 
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3-3 式 の コン ン \ ア と 


人 @ リ スト 3-4 


美美 ※ 半 ※%%※※ 区 区 ※※X※XX※※※ デ 


・ ブロ グラ ム を 再帰 的 に 作る こと で 式 を コン パイ ル す る 
(Z80 CPU の 機械 語 に 変換 ) 
/ 美 半 革 若 炎 潤 革 ※ 革 革 区 区 ※※ 区 区 ※ 革 基 ※※ 区 区区 区 区区 区 区 


DEFINT A-Z 

DIM SYMTBL$(29 ) 

DEF FNH2$(X! )=RIGHT$( "9"+HEX$(X! ),2) 

DEF FNH4$(X!)=RIGHT$( "999"+HEX$(X! ) 4 ) 

DEF FNRH4$(X! )=RIGHT ま (FNH4 ま (X!) ,2)+LEFT ま (FNH4 も (X1),2) 


E0L ま =CHR ま (9 ) 
G0SUB *READ.SOU 


PRINT 

PRINT "入力 され た 式 。 : "j』IN.EXPR$* 
PRINT 

SYMTBL ま (9 )="$" 

LOCADR=&H1999 

PSHOTF=9 


PRINT '"  *% オフ "シド ェクト ・ フ "ログ "ラム  X※" 
PRINT 

GO0SUB GET.TOKEN 

GO0SUB EXPRE 

IF NOT(TOKEN.CODE=9 ) THEN xSYNTAX.ERROR 


PRINT 
PRINT "  X% シン ホ " ル ・ テ ー フ " ル  X%※" 
PRINT 
FOR I=9 TO 19 
IF SYMTBL$(I)=" ま " THEN 479 
PRINT FNH4$(&H4999+Ix2)』" ":SYMTBL ま (1 ) 


\EXPRE 
G0SUB *TERM。 
IF NOT(TOKEN*="+* ) THEN 1129 
G0SUB *GET.TOKEN 
GOSUB ※TERM. 
GO0SUB *ADDOBJ 
GOTO 1979 
IF NOT(TOKEN$="-" ) THEN RETURN 
GOSUB *GET.TOKEN 
GOSUB *TERM。 
G0SUB *SUBOBJ 
60TO 1979 


GOSUB *FACTOR 

IF NOT(TOKEN$="x") THEN 1259 
GOSUB *GET.TOKEN 
GO0SUB *FACTOR 
G0SUB ※MULOBJ 
GOTO 1299 

IF NOT(TOKEN$="/”" ) THEN RETURN 
GOSUB *GET.TOKEN 
GOSUB *FACTOR 
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1289 


1229 


1399 
1319 
1329 
1339 
1349 
1359 
1369 
1379 
1389 
1399 
980 
<919 
2920 
= こ d3d 
2d49 
<959 
2969 
2979 
2989 
29929 
2199 
2119 
2129 
2139 
2149 
2Z159 
2169 
2179 
2189 
2199 
2299 
2219 
2229 
2239 
2249 
2259 
2269 
2279 
2289 
2299 
2399 
2319 
2329 
2339 
2349 
2359 
2369 
2379 
2389 
2399 
2499 
2419 
2429 
2439 
2449 
2459 
2469 
2479 
2489 
2499 
2599 
2519 
2529 
2539 
2549 
2559 


GOSUB *DIVOBJ 
GOTO 1299 


%FACTOR 


IF TOKEN.CODE=1 THEN GOSUB xLDHLVAR: 
IF TOKEN.CODE=2 THEN GOSUB LDHLCNS: 


GOTO 1389 
GOTO 1389 


IF NOT(TOKEN$="(" ) THEN *SYNTAX .ERROR 


GO0SUB *GET.TOKEN 
GC0SUB %EXPRE 


IF NOT(TOKEN$=" )" ) THEN xSYNTAX.ERROR 


GOSUB *GET.TOKEN 
.RETUEN 


%LUDHLVAR 
G0SUB *SYMTBL .SEA 


GOSUB *PUSHOUT PUSH HL 
PRINT FNH4$(LOCADR ) :" 2A'jFNRH4 ま (VARAHR): LD HL, 
PRINT TAB(15):"LD HL,("jFNH4$(VARADR ) 』 "日 )" 
LOCADR=LOCADR+3 

RETURN 
*LDHLCNS "ーーーーーーーーーー 

CONS ! =VAL(TOKENS ) 

IF CONS! >&H7FFF THEN *GEN.ERROR 

60SUB PUSHOUT PUSH HL 
PRINT FNH4 ま (LOCADR )』" 21"jFNEH4 ま (CONS! ) LD HL, 定 数 
PRINT TAB(15)j"LD HL ," iTOKEN* 

LOCADR=LOCADR+3 

RETURN 
基 DEDBJU ーー ニー ニー ビー ュー ニーー 

PRINT FNH4$(LOCADR)』" D1' ji POP DE 
PRINT TAB(15): "POP DE* 

PRINT FNH4 ま (LOCADR+1)j』" 19『5 ADD HL,DE 
PRINT TAB(15) "ADD HL,DE* 

LOCADR=LOCADR+2 

RETURN 
※SUBOBJ “ーー ニニ ーー ニー ビニ ニー 

PRINT FNH4$(LOCADR)j" EB'j EX DE,HL 
PRINT TAB(15): "EX DE ,HL* 

PRINT FNH4$(LOCADR+1)』" E1'』 。 POP HL 
PRINT TAB(15): "POP HL* 

PRINT FNH4$(LOCADR+2)』" BZ': 。 OR A 
PRINT TAB(15)j "OR A' 

PRINT FNH4 ま (LOCADR+3)』" ED52': SBC HL,DE 
PRINT TAB(15): "SBC HL,DE 

LOCADR=LOCADR+5 

RETURN 
%MULUDBJ "ーーーーーーーーーー 

PRINT FNH4$(LOCADR)』" D1'j ^ POP DE 
PRINT TAB(15): "POP DE" 

PRINT FNH4$(LOCADR+1 ):』" CD9939'』 ^ CALL IMUL 
PRINT TAB(15)j』"CALL IMUL * 

LOCADR=LOCADR+4 

RETURN 
DEVOBJ “ーー ニー ニー ニー ニー 

PRINT FNH4$(LOCADR):" EB'j ^ EX DE,HL 
PRINT TAB(15): "EX DE,HL* 

PRINT FNH4$(LOCADR+1)』" E1'5 POP HL 
PRINT TAB(15)j "POP HL " 

PRINT FNH4$(LOCADR+2):′ CD9339": ^ CALL IDIV 
PRINT TAB(15)』 "CALL IDIV* 

LOCADR=LOCADR+5 

RETURN 

ーーーーーーーーーー ~ PUSH HL * の 出力 - ニ ーーーーーーーー 
*PUSHOUT 
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変数 の アド レス 


3-3 式 の ラン シンパ ア と 


2569 
2579 
2589 
25929 
2699 
3999 
3919 
39 29 
3939 
3949 
3959 
3969 
3979 
3989 
39929 
3199 
3119 
3129 
3139 
3149 
3159 
3169 
3179 
3189 
3199 
4999 
4919 
4929 
4939 
4949 
4959 
4969 
4979 
4989 
4999 
4199 
4119 
4129 
4139 
4149 
4159 
4169 
4179 
4189 
4129 
4299 
4219 


422d 


4239 
4249 
4259 
4269 
4279 
4289 
4299 
4399 
4319 
4329 
4339 
4349 
4359 
4369 
4379 
4389 
4399 
4499 
4419 
4429 


IF PSHOTF=9 THEN PSHOTF=1: RETURN 
PRINT FNH4$(LOCADR)』" E5'j ^ PUSH HL 
PRINT TAB(15)j "PUSH HL * 

LOCADR=LOCADR+1 


ーーーーーーーーーー 記号 表 の 検索 お よび 登録 ------ーーーー 
*SYMTBL . SEA 
FOR J=9 TO 19 


IF SYMTBL ま (J)=" ま " THEN 3989 

IF SYMTBL も (J)=TOKEN も THEN 3199 
NEXT J 
PRINT: PRINT "SYMBOL TABLE OVERFLOU* 
END 
SYMTBL$ ま (J)=TOKEN$ 


SYMTBL$(J+1 )=" ま " 

VARADR=&H4999+Jx2 

RETURN 

で ここ ーー つこ 柄 基 江 ーー ーーーー=ーーーー 
*SYNTAX .ERROR 


PRINT: PRINT "SYNTAX ERROR* 

END 

"ーーーーーーーーーー コー 生成 世 ラ ーー  . ニ ーー ニー ニー ニニ スエ 
\GEN.ERROR 

PRINT: PRINT “CODE GENERATION ERROR" 
END 

*GET.TOKEN 

3 先行 する 空 日 を 取る ----- 

UHILE CHAR$=* 「 


CHAR ま =MID ま (SOU.LINE*,CP,1 ): CP=CP+1 


IF NOT(CHAR$=E0OL ま ) THEN 4149 
TOKEN.CODE=9 
TOKEN ま ="“" 


- 数 も 
IF NOT(CHAR$>="A' AND CHAR$ く <="Z") THEN 4239 
TOKEN.CODE=1 
TOKEN$=*" 
UHILE (CHAR$ も >="A' AND CHAR ま く =*"Z") OR (CHAR$>="9" AND CHAR$ く = "9") 
TOKEN ま =TOKEN$+CHAR$ 
CHAR ま =MID ま (SDU.LINE$,CP , 1 ): CP=CP+1 


IF NOT(CHAR$>="9" AND CHAR ま < く ="9" ) THEN 4329 

TOKEN.CODE=2 

TOKEN$="“ 

UHILE CHAR$>="9" AND CHAR$ く ="9" 
TOKEN$=TOKEN$+CHAR$ 
CHAR$=MID$(SOU.LINE$,CP , 1 ): CP=CP+1 

UEND 


ーーーーー 区 切り 記号 ----- 
DELIM も ="()+ー*/" 
FOR 【=1 TO LEN(DELIM ま ) 
IF CHAR ま も =MID も (DELIM ま , T,1) THEN 4379 
NEXT I 
GOTO *TOKEN.ERROR 
TOKEN.CODE=9+ 1 
TOKEN$=CHAR$ 
CHAR ま =MID も (SOU.L INE$,CP , 1 ) : CP=CP+1 
RETURN 
” ーー ニー ニーー ロジ で" キー ニー ビデ 
TOKEN.ERROR 
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4439 PRINT LEFT ま (SO0U.LINE$,LEN(S0U.LINE ま も)-1 ) 


4449 PRINT TAB(CP-2)j"^ Error 
4459 END 


5000 = ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ 


5919 “ ソー ス ・ プ ログ ラム ( 式 ) の 入力 


5020 ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニニ ニ 


5939 *READ.SOU 

5949 LINE INPUT " 式 を 入力 : ",IN.EXPR$ 
5959 SOU.LINE*$=IN.EXPR$+EOL* 

5969 CHAR ま =MID$(SOU.L INE$, 1 ,1 ): CP=2 
RETURN 


人 実行 例 3-4 
式 を 入力 : 
入力 され た 式 


共和 え 。 ガ フ ジコ の の ログ" ラ ヵ 


2A9949 


合 BZG 2 うけ ネ DE 


: A+ B/( C-2 ) + DE 


※※ 
HL ,(4999H 〉 
HL 
HL ,(4992H 〉 
HI 


L 
HL ,( 4994H ) 
HL 


HL ,(4996H ) 
HL 


HL , (4998H 〉 
DE 

IMUL 

DE 

HL ,DE 


実行 例 3-4 が プロ グラ ム の 実行 結果 で す 。 こ の オブ ジェ 
クト ・ プ ログ ラム は 逆 ポ ー ラ ンド 記法 を 用 いた 実行 例 3- 
2 (70 ペ ー ジ ) と 同じ に な っ て いま す 。 これ は , オブ ジェ 
クト ・ コ ユー ド の 生成 段階 で , 変数 の ロー ド , 定数 の ロー 
ド , 加算 , 減算 , 乗算 , 除算 し いっ た オブ ジェ クト ・ コ 
ー ド を , 逆 ポ ー ラ ンド 記法 を 用 いた 式 の ュ コンパイル の プ 
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ログ ラム と 同一 に し た た めで す 。 こ の 場合 , コー ド 生 成 
部 は , 逆 ポ ー ラ ンド 記法 の 式 を 一 括 し て オプ ジェ クト ・ 
ュー ド に 変換 する の か , サブ ルー チン と し て 構文 解析 か 
ら 呼 び 出 され る の か が 異な る だ け で す 。 リ スト 3-2 と リス 
ト 3-4 の ユー ド 生 成 部 を 見 比べ れ ば わか る と 思い ます 。 

その だ た めこ こ で も , 無駄 な PUSH, POP 命令 が 生成 
さる れ て いま す 。 を そこで, 3-3-2 で 使っ た 最適 化 を し ま 
す 。 つ まり , 図 3-11 の ※1 一 6 に 相当 する 部 分 で 次 の よ 
2 な 操作 を 行い ます 。 

※1 お よび ※2 変数 名 や 定数 は スタ ッ ク へ PUSH 
する 。 

※3 一 ※6 スタ ッ ク か ら 二 つの 変数 名 や 定数 , ある 
い は 中 間 結 果 を 示す マー ク を POP し , 表 3-2(73 ペ ー ジ ) 
を 用 いて オブ ジェ クト ・ コ ユー ド を 生成 する 。 この 表 の 使 
いか だ は 3-3-2 の と き と 同 じ で ある 。 

以上 の こと を 取り 入れ て プロ グラ ム に し た の が リス ト 
3-5 で す 。 そして, 実行 例 3-5 が この プロ グラ ム の 実行 結 
果 で す 。 こ の プロ グラ ム の 場合 , 同じ 表 3-2 を 使っ た た 
め , 実行 例 3-3 (80 ペ ー ジ ) の オプ ジェ クト ・ プ ログ ラム 
と 同じ も の が 生成 され て いま す 。 


@ リ スト 3-5 
本 すす すす すす すす すえ すす すそ すそ キ キキ ミネ ネネ ネネ キネ ネネ ミミ キネ ミネ ネネ ミネ ミミ 333 


プロ グラ ム を 再帰 的 に 作る こと で 式 を コン パイ ル す る 
簡単 な 最適 化 を 行なっ た 例 


(Z80 CPU の 機械 語 に 変換 ) 
- 類 迷 美 半 基 革 汗 米光 ※ 革 区 光 基 注 光 区区 区 XX※※※※XXXX※XX※X※X※※※※※※ 
DEFINT A-Z 
DIM 0OPRSTK$(59 ) , SYMTBL$( 29 ) 


DEF FNH2$(X!)=RIGHT ま ("9"+HEX ま (X!) 。2) 
DEF FNH4$(X! )=RIGHT ま ("99"+HEX$(X! ) 。4 ) 


DEF FNRH4$(X!)=RIGHT も (FNH4$(X1) 2)+LEFT$(FNH4$(X! ) 。 


EOL*=CHR$(9 ) 
G0SUB *READ.SOU 


PRINT 


3-3 式 の コン ン \ ア と 


2) 
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299 PRINT "入力 され た 式 。 : ":IN.EXPR$* 
399 PRINT 

319 SYMTBL* ま (9)=" ま " 

329 LOCADR=&H1999 

339 PSHOTF=9: SPTR=9 


ロ 


359 PRINT "  %% オフ "シド ェクト ・ フ "ログ "ラム 
369 PRINT 

379 GOSUB *GET.TOKEN 

389 GOSUB *EXPRE 

399 IF NOT(TOKEN.CODE=9 ) THEN xSYNTAX .ERROR 

499 IF ASC(OPRSTK ま (9 ) )=3 THEN 449 

419 X=ASC(OPRSTK ま (9 ) ) : X ま =MID ま (0OPRSTK ま (9 ) ,2 ) 

429 IF X=1 THEN VARNA も =X ま も: GOSUB LDHLVAR: GOTO 449 
439 CONS$=X ま : GUSUB %LDHLCNS 


459 PRINT 

469 PRINT "  ※x% シン ネ " ル テーブ" ル  ※※ 
479 PRINT 

489 FOR 1I=9 TO 19 

499 IF SYMTBL$(T)=" ま " THEN 529 
599 PRINT FNH4$(&H4999+Ix2)』" 「』SYMTBL*({ ) 


\EXPRE 
G0SUB ※TERM. 
IF NOT(TOKEN*$="+" ) THEN 1129 
GOSUB *GET .TOKEN 
GOSUB *TERM. 
GO0SUB *ADDOBJ 
GOTO 1979 
IF NOT(TOKEN*="-" ) THEN RETURN 
60SUB *GET.TOKEN 
G0SUB *TERM. 
GO0SUB *SUBOBJ 
GOTO 1979 


\TERM。 
GOSUB *FACTOR 
IF NOT(TOKEN$="x") THEN 1259 
GO0SUB *GET.TOKEN 
GO0SUB *FACTOR 
60SUB *MULOBJ 
GOTO 1299 
IF NOT(TOKEN$="/* ) THEN RETURN 
G0SUB *GET.TOKEN 
GOSUB *FACTOR 
60SUB xDIVOBJ 
GOTO 1299 


*FACTOR 


IF NOT(TOKEN$="(" ) THEN *SYNTAX.ERROR 
GOSUB *GET.TOKEN 
GOSUB *EXPRE 
IF NOT(TOKEN*=”" )" ) THEN xSYNTAX.ERROR 
G0SUB *GET.TOKEN 
RETURN 


IF TOKEN.CODE=1 OR TOKEN.CODE=2 THEN GOSUB *STKPUSH: GOTO 


3-3 式 の コン ン \ ア と 


\ADDOBJ 
GO0SUB ADD.MUL 
PRINT FNH4$(LOCADR)』" 19'』 
PRINT TAB(15)』 "ADD HL,DE* 
LOCADR=LOCADR+ 1 
RETURN 

xSUBOBJ 
GO0SUB xSUB.DIV 
PRINT FNH4$(LOCADR)』 "BZ": 
PRINT TAB(15)j "OR A" 
PRINT FNH4$(LOCADR+1)』" ED52'』 
PRINT TAB(15)j "SBC HL,DE* 
LQCADR=LOCADR+3 
RETURN 

xMULOBJ 
6G0SUB xADD.MUL 
PRINT FNH4$(LOCADR ) j′ CD9939": CALL IMUL 
PRINT TAB(15)j "CALL IMUL " 
LOCADR=LOCADR+3 
RETURN 

*DIVOBJ 
GOSUB *SUB.DIV 
PRINT FNH4$(LOCADR ) : ′ CD9339* : CALL IDIV 
PRINT TAB(15)j』 "CALL IDIV" 
LOCADR=LOCADR+3 
RETURN 


加算 お よび 乗算 
*ADD .MUL 


G0SUB *POPSTK 

IF NOT(X=1 AND Y=1 ) THEN 17929 
GOSUB *※PUSHHL 
VARNA$=X$: GOSUB *LDHLVAR 
VARNA ま =Y ま : GOSUB *LDDEVAR 
RETURN 

IF NOT(X=1 AND Y=2) THEN 1849 
GOSUB PUSHHL 
VARNA も =X ま : DOSUB *LDHLVAR 
CONS$=Y ま も: GOSUB *LDDECNS 
RETURN 

IF NOT(X=1 AND Y=3) THEN 1879 
VARNA$=X$: GOSUB *LDDEVAR 
RETURN 

IF NOT(X=2 AND Y=1 ) THEN 1929 
GO0SUB *PUSHHL 
VARNA$=Y ま : GOSUB *LDHLVAR 
CONS$=X ま : GOSUB xLDDECNS 
RETURN 

IF NOT(X=2 AND Y=2) THEN 1979 
GOSUB *PUSHHL 
CONS$=X$: GOSUB xLDHLCNS 
CONS$=Y$: GOSUB xLDDECNS 
RETURN 

IF NOT(X=2 AND Y=3) THEN 2999 
CONS$=X ま : GOSUB xLDDECNS 
RETURN 

IF NOT(X=3 AND Y=1 ) THEN 2939 
VARNA$=Y ま も: GOSUB XLDDEVAR 
RETURN 

IF NOT(X=3 AND Y=2) THEN 2969 
CONS ま =Y$: GOSUB *LDDECNS 
RETURN 

IF NOT(X=3 AND Y=3) THEN *GEN.ERROR 
60SUB xPOPDE 


大 租 お よび 除算 
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GO0SUB *POPSTK 

IF NOT(X=1 AND Y=1 ) THEN 2179 
60SUB *PUSHHL 
VARNA$=X ま も : GO0SUB *LDHLVAR 
VARNA*=Y ま : GOSUB *LDDEVAR 
RETURN 

IF NOT(X=1 AND Y=2) THEN 2229 
GOSUB PUSHHL 
VARNA$=X ま : GOSUB LDHLVAR 
CONS*$=Y$: GOSUB *LDDECNS 
RETURN 

IF NOT(X=1 AND Y=3) THEN 2269 
GO0SUB EXDEHL 
VARNA も =X ま : GOSUB *LDHLVAR 
RETURN 

IF NOT(X=2 AND Y=1 ) THEN 2319 
GOSUB *PUSHHL 
CONS ま =X ま : GOSUB *LDHLCNS 
VARNA$=Y$: GOSUB *LDDEVAR 
RETURN 

IF NOT(X=2 AND Y=2) THEN 2369 
GOSUB *PUSHHL 
CONS ま =X ま : GO0SUB *LDHLCNS 
CONS* ま =Y ま も : GO0SUB *LDDECNS 
RETURN 

IF NOT(X=2 AND Y=3) THEN 2499 
G0SUB *EXDEHL 
CONS ま =X ま も : GOSUB %LDHLCNS 
RETURN 

IF NOT(X=3 AND Y=1 ) THEN 2439 
VARNA$=Y ま : GOSUB *LDDEVAR 
RETURN 

IF NOT(X=3 AND Y=2) THEN 2469 
CONS ま =Y ま : GO0SUB xLDDECNS 
RETURN 

IF _ NOT(X=3 AND Y=3) THEN *GEN.ERROR 
GOSUB *EXDEHL 
GOSUB *POPHL 
RETURN 


\LDHLVAR ” LD HL,( 変数 の アド レス ) 
60SUB *SYMTBL .SEA 
PRINT FNH4$(LOCADR )j" 2A" jFNRH4$(VARADR ) : 


PRINT TAB(15)j"LD HL,(" jiFNH4 ま (VARADR ) "日 )" 
LOCADR=LOCADR+3 

RETURN 

*\LDDEVAR ” LD DE,( 変数 の アド レス ) 


GO0SUB SYMTBL .SEA 
PRINT FNH4$(LOCADR ) j " ED5B' :FNRH4$(VARADR ) 


PRINT TAB(15)j』"LD DE ,("jFNH4$(VARADR ) "日 ) " 
LOCADR=LOCADR+4 

RETURN 
*LDHLCNS ” LD HL, 定 数 


CONS ! =VAL(CONS$ ) 
IF CONS !>&H7FFF THEN xGEN.ERROR 
PRINT FNH4$(LOCADR ) j" 21" jFNRH4 ま (CONS! ) 


PRINT TAB(15)j"LD HL , "iCONS$ 
LOCADR=LOCADR+3 
RETURN 

\LDDECNS ^ LD DE, 定 数 


CONS ! =VAL(CONS$ ) 
IF CONS! >&HZFFF THEN xGEN.ERROR 
PRINT FNH4$(LOCADR ) :" 11"jFNRH4 ま (CONS ! ) 』 


PRINT TAB(15)j』"LD DE , "iCONS$ 
LOCADR=LOCADR+3 

RETURN 

*EXDEHL DE ,HL 


。 EX 
PRINT FNH4$(LOCADR)j" EB'j 


2899 
2819 
2829 
2839 
2849 
2859 
2869 
2879 
2889 
2899 
2999 
2919 
2929 
2939 
2949 
2959 
2969 
2979 
4999 
4919 
4929 
4939 
4949 
4959 
4969 
4979 
4989 
49929 
4199 
4119 
4129 
4139 
4149 
4159 
4169 
4179 
4189 
4199 
4299 
4219 
4229 
4239 
4249 
4259 
4269 
4279 
4289 
4299 
4399 
4319 
4329 
5999 


5919 “ 
5929 “ 


5939 
5949 
5959 
5969 
5979 
5989 
59929 
5199 
5119 
5129 
5139 
5149 
5159 


3-3 式 の コン ン パ アシ 


PRINT TAB(15): "EX 


DE ,HL* 


LOCADR=LOCADR+ 1 

RETURN 
\POPHL ^ POP HL 

PRINT FNH4$(LOCADR)』" E1'j』 

PRINT TAB(15)j "POP HL* 

LOCADR=LOCADR+1 

RETURN 
%POPDE ^” POP DE 

PRINT FNH4 ま (LOCADR)』" D1'j 

PRINT TAB(15)j "POP DE 

LOCADR=LOCADR+1 

RETURN 
*PUSHHL 。 PUSH HL 

IF PSHOTF=9 THEN PSHOTF=1: RETURN 

PRINT FNH4$(LOCADR)』" E5'j 

PRINT TAB(15)j "PUSH HL* 

LOCADR=LOCADR+1 

.RETURN 

= ニー ビニ ニニ ーー 変数 お よび 定数 を スタ ッ ク へ PUSHH  -----ーーーーー 
xSTKPUSH 

OPRSTK$ ま (SPTR )=CHR ま (TOKEN .CODE )+TOKEN$ 

SPTR=SPTR+1 

RETURN 

"ーーーーーーーーーー 変数 お よび 定数 を スタ ッ ク よ り POP  ---------- 
*POPSTK 

X=ASC(OPRSTK$(SPTR-2 ) ) : X$=MID ま (0PRSTK$(SPTR-2 ) , 2 ) 
Y=ASC(OPRSTK$(SPTR-1 ) ) : Y$=MID も (0PRSTK$(SPTR-1 ) , 2 ) 
OPRSTK ま (SPTR-2 )=CHR ま (3)+* 

SPTR=SPTR-1 

RETURN 

人 PRE 記号 表 の 検索 お よび 登録 ------ーーー 
XSYMTBL . SEA 


FOR J=9 TO 19 


IF SYMTBL*(J)=" ま " THEN 4219 

IF SYMTBL ま ( J)=VARNA$ THEN 4239 
NEXT J 
PRINT: PRINT "SYMBOL TABLE OVERFLOM* 
END 
SYMTBL$( J)=VARNA$ 


SYMTBL ま (J+1 )=" ま * 
VARADR=&H4999+Jx2 


ーー デー ビニ ーー ピー 情 芝 下 ヲ ーーーーーー ビ ーー ニー 
XSYNTAX .ERROR 
PRINT: PRINT "SYNTAX ERROR* 


ーー ビニ ーーー コー ド 人 生成 エラ ー ニニ デニ ーー ニー ニー 
*GEN.ERROR 
PRINT: PRINT "CODE GENERATION ERROR* 


ーーーーー 先行 する 空 日 を 取る ーーーーー 
UMHILE CHAR$ も =" 『" 
CHAR$=MID も (SOU.LINE ま ,CP 1 ): CP=CP+1 


ーーーーー 行 の 獲 り ーーーーー 
IF NOT(CHAR$=E0L ま ) THEN 5149 
TOKEN.CODE=9 
TOKEN$=*“* 


TOKEN.CODE=1 
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5169 
5179 
5189 
5199 
5299 
5219 


TOKEN*$="“* 

MHILE (CHAR ま >="A" AND CHAR も まく ="Z") OR (CHAR ま も >="9" AND CHAR ま く ="9") 
TOKEN も =TOKEN ま +CHAR ま 
CHAR$=MID ま (SOU.L INE ま も ,CP , 1 ): CP=CP+1 


5229 “ 


5239 
5249 
5259 
5269 
5279 
5289 
5299 
5399 
5319 
5329 
5339 
5349 
5359 
5369 
5379 
5389 
5399 
5499 
5419 
5429 
5439 
5449 
5459 


IF NOT(CHAR$>="9" AND CHAR$ く ="9" ) THEN 5329 
TOKEN.CODE=2 
TOKEN*$="『* 
UMHILE CHAR も >="9" AND CHAR ま く ="9* 
TOKEN$=TOKEN ま +CHAR ま ま 
CHAR ま =MID ま (SO0U.L INE ま ,CP , 1 ): CP=CP+1 


FOR 1=1 TO LEN(DELINM$) 
IF CHAR$=MID$(DELIM ま も, 1,1) THEN 5379 
NEXT I 
GOTO xTOKEN.ERROR 
TOKEN.CODE=9+I 
TOKEN ま =CHAR$ 
CHAR ま =MID ま (SOU.L INE ま ,CP , 1 ) : CP=CP+1 
RETURN 


TOUKEN.ERROR 
PRINT LEFT$(S0U.L INE ま も ,LEN(SOU.L INE$ ) -1 ) 
PRINT TAB(CP-2)j'^ Error" 


6999 “ 


6919 “ 


ム ( 式 ) の 入力 


6929 “ 


6939 
6949 
6959 
6969 
6979 


\READ . SOU 

LINE INPUT “ 式 を 入力 : ",IN.EXPR$ 
S0U.LINE ま =IN .EXPR ま +EOL ま 

CHAR も =MID ま (SO0U.LINE ま , 1 ,1 ): CP=2 
RETURN 
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この よう に , 構文 の 上 か ら 6 下 へ 解析 し て いく 方 法 , こ 
の 例 で は < 式 > つ < 項 > 一 < 因子 > つ < トー クン > へ と 
解析 し て いく 方 法 の こと を トッ プ ・ ダ ウン 法 (top down 
method) と 呼び ます 。 ま だ, 逆 ポ ー ラ ンド 記法 の よう に 
トー クン の 集まり か ら を その 構文 を 解析 する 方 法 を ボトム 
・ ア ッ プ 法 (bottom up method) と 呼び ます 。 

この うち 割合 簡単 で 失敗 の 少な い の は , トッ プ ・ ダ ウ 
ン 法 で し ょ う 。 なぜなら , 構文 図 か ら を その まま プロ グラ 
ム が つて くれ, 次 に どの よう な トー クン が くる か が ブロ グ 
ラム の 流れ か ら 決 まる た め に 構文 エラ ー が 発見 し や すい , 
すなわち エラ ー チ ェ ッ ク の ルー チン が つく りや すい か ら 
で す 。 ボ トム ・ ア ッ プ 法 で は , ソー ス ・ ブ ログ ラム か ら 
中 間 形 に する の は 簡単 な 処理 で 済 や の で す が , 構文 エラ 


3-3 式 の コン ン \ ア と 


久実 行 例 3-5 
式 を 入力 : A + B/( C-2 ) + DE 
入力 され た 式 。: A+ B/( C-2 ) + DxE 


※※ 。 オフ "シド ェクト ・ フ "ログ "ラム  ※※ 


1999 2A9949 HL , (4999H ) 
E,2 


2A9249 HL (4992H) 
CD9339 IDIV 
EDSB9449 DE ,(4994H) 
19 AD HL,DE 

E5 HL 

2A9649 HL ,( 4996H ) 
ED5B9849 DE ,( 4998H ) 


1921 19 

※※ シン 本 "上ル ・ テ チー ブ " ル  ※※ 
4999 
4992 


4994 
4996 


ー の チェ ッ ク が , 構文 が 複雑 に な る に つれ て 大 変 に な っ 
て きま す 。 それ は , 次 に くる トー クン を 前 の トー クン か 
6 推 測 し な けれ ば な ら な いか ら で す 。 構文 が 複雑 に な れ 
ば トー クン の 組み 合わ せ も 多く な り ま す 。 

パッ ツ コ ン の コン パイ ラ は 普通 アセ ンプ ラ 言 語 で つく り 
ます 。 しかし, コンパ イラ を 高 水準 言語 で つく ろう と す 
る と , 言語 に よっ て は 再帰 的 な ゲロ グラ ム が 文法 的 に 許 
る され な い 場 合 (FORTRAN な ど ) が ある と いう 問題 に 
ぶつ か り ま す 。 を その よう な と き は 無理 し て トッ プ ・ ダ ツウ 
ン 法 を 使う より , ボトム ・ ア ッ プ 法 の ほう が コン パイ ラ 
が 小さき 〈 見 や すく な り ま す 。 

まだ , これ まで の 説明 は 式 の 中 で も 二 項 演算 , それ も 
四則 演算 に つい て で し た が , 演算 に は まだ 関係 演算 , 論 
理 演算 と いっ た も の が あり ます 。 こ れ ら の 演算 も 二 項 演 
算 に つい て は , これ ま て 説明 し た 四則 演算 と 同様 の 方 法 
で コン パイ ル す る こと が で きま す 。 
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3-3-4 代入 文 と 単項 演算 子 , 配列 , 関数 


ここ で は 変数 へ の 代入 や 単項 演算 子 。 配列 。 関数 の 呼 
び 出 し な どの 処理 に つい て 説明 し ます 。 


〔1〕 代入 文 
代入 文 は 式 の 演算 結果 を 変数 に 代入 (スト ア ) する た 
め の 文 で す 。 代入 文 は FORTRAN や BASIC で は , 


変数 名 = 式 
と 書き , Pascal や ALGOL で は 
変数 名 := 式 


と 書き ます 。 代入 きれ る 変数 は “= ニ "” また は “:=”" の 
左辺 に , 式 は 右辺 に 書か れ ま す 。“= ニ "や “: ニ "は 右辺 
の 値 を 左辺 へ 代入 する こと を 示し て いま す 。 こ こ で は 説 
明 の 都合 上 , 変数 へ の 代入 は “:=" で 統一 する こと に 
し ます 。 


代入 文 の 構文 は 
代入 文 
と な り ま す 。 


代入 文 の ュ ン パイ ル 法 を 流れ 図 に する と 図 3-12 の ① の 
よう に な り ま す 。 を そして, この 流れ 図 を ゲロ グラ ム に し 
た 場合 。 つ くら れる オブ ジェ クト ・ プ ログ ラム は 図 3-12 
の ② の よう に な り ま す 。 


【 2 〕 単項 演算 

実際 の 式 に は これ まで 説明 し た 二 項 演算 の 他 に 単項 演 
算 が あり ます 。 単項 演 算 に は 変数 、 定数 や “(" の 前 に つ 
〈 “符号 ", 論理 演算 の “否定 (NOT)" が あり , これ 
ら を 示す 演算 子 を 単項 演算 子 と し いい ます 。 


3-3 式 の コン ッ パ ア と 


代入 文 の コン バイ ル 


① 代 入 文 の コン バイ ル 法 を 示し た 流れ 図 ⑧②① の 流れ 図 で つく られ る 
オプ ジェ クト ・ プ ログ ラム 
式 の 演算 結果 は レジ スタ ) 
L に 入る も の と する 
ソー ス ・ プ ログ ラム 


変数 名 : 


求め た アド レス は ー オプ ジェ クト コード 
時 的 に 記憶 し て お く 
式 を コン パイ ル し た 


結果 つく られ た オ 
ジジ ェクト < ヨー ド 


LD (変数 の アド レス ), HL 


xp と | スト ア す る アド レス は 
か 玉 | で 求め た アド レス 


ここ まで 例 と し て 使っ て きた 式 の 構文 を 単項 演算 子 の 
符号 “]"“ー” が 使え る よう 変更 する と < 式 > の 構文 は 
次 の よう に な り ま す 。 


iT: 


この 構文 図 か 6, 単項 演算 子 の “ 二 "“ー" は 式 の 先 
頭 , 代入 文 で い を えば“: =" の 直後 , ある い は “(” の 直 
後 ど だ け に 現われ る こと が わか り ま す 。 

式 を 逆 ポ ー ラ ンド 記法 に 変換 する と きこ の 点 に 注意 す 
れ ば , 加減 演算 子 “ 十 " “一 " が 単項 演算 子 と し て 使わ れ 
て いる の か ヵ か 二 項 演算 子 と し て 使わ れ て いる の か が 区 別 で 
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きま す 。 を そして, 区 別 さ れ た 加減 演算 子 は 区 別 で きる 形 
で 出力 し ます 。 た だ し 単項 演算 子 の “ 十 " は あっ て も な 
く て も よい の で 出力 し な いよ うに し ます 。 こ こ で は 単項 
演算 子 の “ー”" を “[ 一 ]” と 表す こと に する と , だ と え 
ば 


ーA*( 一 B 十 2) 


と いう 式 は 


A [一 | B [一 | 2 十 * 


し 


と いう 逆 ポ ー ラ ンド 記法 の 式 に 変換 され ます 。 を そし て , 
この 逆 ポ ー ラ ンド 記法 の 式 を 機械 語 に 変換 する と き に は, 
単項 演算 子 [一 ] は 符号 を 反転 きせ る よう な オプ ジェ ク 
ト ・ コ ユー ド を 生成 する よう に し ます 。 

再帰 的 な 方 法 で 単項 演算 子 を 使っ た 式 を コン パイ ル す 
る と き は , た と えば 式 の 構文 が 次 の よう に な っ て いた ら , 
この 構文 の と なり に プロ グラ ム を つく り ま す 。 


図 3-13 が この 式 の 構文 か ら つ くっ た 流れ 図 で す 。 こ の 
流れ 図 を ゲロ グラ ム に すれ ば 単項 演算 子 の 符号 が 式 の 中 
で 使え る よう に な り ま す 。 

単項 演算 子 に は 他 に も 論理 演算 の 否定 (NOT) が あ 
り ま す が , これ も 同様 の 方 法 ど コン イル で きま す 。 


〔 3 〕 配列 

式 の 中 に は 変数 や 定数 以外 に 配列 や 関数 も 書か れ ま す 。 
ここ で は 配列 (添字 つき 変数 と し もい う ) の コン パイ ル 法 
に つい て 説明 し ます 。 


3-3 式 の コン ン \ ア と 


単項 演算 子 "+"“ー" が 使え る 式 を 再帰 的 に コン バイル する 


炊 の トー クン を |。Yes 
読む 
No 


Yes 


| 項 次 の トー クン を 読む 


1 * Il 


符号 を 反転 させ る よ 
うな オプ ジェ クト ・ 
コー ド を 生成 


Yes Yes 
1l_ mw Il 
加算 の オプ ジェ クト ・ 減算 の オブ ジェ クト ・ 
コー ド を 生成 コー ド を 生成 


Pascal や ALGOL で の 配列 の 構文 は 次 の よう に な っ 
て いま す 。 


BASIC ゃ や FORTRAN で は , [ ] の 代わ り に 
( ) が 使わ れ て いま す 。 こ こ で は 説明 の 都合 上 [ ] 
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に 統一 する こと に し ます 。 

また だ , 一 般 的 に 配列 は ゲロ グラ ム の 先頭 で 次 元 数 , 添 
字 の 範囲 な ど を 宣言 し な けれ ば 使え ませ ん 。 

配列 を 使っ た 普通 の 式 は 


A | 二 3| *B |[Jー1。 KI 


と いう ょ うに 表 わ る れ ま す が , この 式 を 逆 ポ ー ラ ンド 
記法 に 変換 する と 


A「[I3++] B [J1 一 。 K] * 


と な り ま す 。 

式 の 中 の 配列 を 逆 ポ ー ラ ンド 記法 に 変換 する と き , ト 
ー ク ン の 区 切り 記号 “[ " す ] も は 決 の よう に 処理 
し ます 。 

借 区 切り 記号 [ 

“^[ "は 逆 ポ ー ラ ンド 記法 の 式 と し て 出力 する と と も 
に スタ ッ ク に も PUSH する 。 

但 区 切り 記号 

スタ ッ ク ・ ト ッ プ が “[ " に な る ま て 演算 子 を POP 
し , 出力 する 。 その 後 “,” を 出力 する 。 

僅 区 切り 記号 “本 

スタ ッ ク ・ ト ッ プ が “|[ " に な る まで 演算 子 を POP 
し , 出力 する 。 を その後“ ]” を 出力 する 。 そ し て , スタ 
ッ ク ・ ト ッ プ の “[ "は 必要 な く な っ た の で POPL し 捨 
て ゐる 。 

基本 的 に は この 処理 で 配列 を 含ん だ 式 を 逆 ポ ー ラ ンド 
記法 に 変換 で きま す 。 実際 に プロ グラ ム を つく る 場合 は , 
トー クン の 出現 順 が 正しい か どう か も チェ ッ ク し な け 
れ ば な り ま せん 。 

次 に 配列 を 含ん だ 逆 ポ ー ラ ンド 記法 の 式 か ら オ ブ ジ ェ 
クト ・ プ ログ ラム を つく り ま す 。 構文 的 に は 変数 名 も 配 
列 名 も 関数 名 も 同じ で , 変数 名 な の か 配列 名 な の か は 記 
号 表 を 引 《 こ と で わか り ま す 。 記 号 表 か ら 引 いた 名 前 が 


3-3 式 の コン ン \ ア と 


変数 だ どっ だ たら これ まで と 同じ ょ うに 変数 の 内 容 を ロー ド 
し て くる よう な コー ド を 生成 し ます 。 も し 配列 どっ た ら 6 
記号 表 か ら 配 列 の 先頭 アド レス や 次 元 数 , 添字 の 範囲 な 
どの 情報 を 取り 出し , 1 次 元 配列 な ら 図 3-14 の ① の よう 
に , 2 次 元 以 上 の 配列 な ら 図 3-14 の ② あ る い は ③ の よう 
に オプ ジェ クト ・ ら コー ド を 生成 し ます 。 


式 の 中 の 配列 の オプ ジェ ク の as 
1 次 元 配 列 


記号 表 よ り 配列 名 で ある こと を 知る 。 
SR 
rs 
ジー ジュー 「 バ 
に 人 まま 
確認 化 内 の オブ 
ジェ クト ・ コ ー ド を 生成 。 


次元 配列 


式 の オプ ジェ クト ・ コ ー ド を 生成 


オプ ジェ クト ・ コ ー ド 


式 の オブ ジェ クト ・ コ ー ド 


式 の 演算 結果 より 添字 の 
下限 を 減算 する よう な オプ 
ジェ クト コー ド 


配列 ! 要 素 あたり の バイ ト 
数 を 乗算 する よう な オブ 
ジェ クト ・ コ ー ド 


配列 の 先頭 アド レス を 加 
算 す る よう な オブ ジェ ク 
ト ・ コ ー ド 


加算 結果 が 示す メモ リ の 
内 容 を ロー ド し て くる よう な 
オプ ジェ クト ・ コ ー ド 


添字 の 下限 が 0 な ら コ ー ド 
は 生成 し な い 。 


| 要素 あたり の バイ ト 数 が 
2" バ イト な ら 左 へ n ビ ピッ ト ・ シ 
フト する よう な コー ド を 生成 
する 。 


参照 し た い 配列 の 要素 の 
アド レス を 求め て いる 。 


必要 と する 配列 の 要素 を 
ほ 一 ド 
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< 例 > 1 り 配 列 名 で ある こと を 知る 。 | 要素 あたり の バイ 
ト 数 は 2 バイ ト , 次 元 数 は |, 添字 の 下限 は | と する 。 
1 次 元 配列 AR1 〔 式 〕) 
式 の オブ ジェ クト を 生成 
オプ ジェ クト ・ コ ー ド ee レラ 式 の 演算 結果 は レジ スタ 
| koo HL に 入 い る も の と する 。 
添字 の 下限 が | な の で 演算 結果 よ 
に ニン 遇 り 1 減じ て いる 。 
| 要素 あたり の バイ ト 数 が 2 バイ 
ADD HL HL ト な の で , 左 へ 1 ビッ ト ・ シ フト する 


よう な オブジェ クト ・ コ ー ド を 生成 。 


DE, r Fa 参照 し た い 配列 要素 の アド レス が 


HL DE 求まる 。 


E. (HU) 


HL 
レジ スタ HL に 配列 要素 を ロー ド す る 。 


D, (HU) 


DE, HL 


2 次 元 以上 の 配列 (第 1 の 方 法 ) 


n 次 元 配列 配列 名 【 式 1 , 式 2 , ・・・ 式 n 〕 
2 
| 次 元 配列 配列 名 〔( 式 1 一 4.)XTL Ui 寺 ( 式 2 一 4)XTT Ui 十 ・・・ 土 ( 式 nー 4m) 


式 I! の オブ ジェ クト ・ コ ー ド 


定数 , の 減算 
定数 吾 。Ui の 乗算 


式 2 の オプ ジェ クト ・ コ ー ド 
定数 4。 の 減算 
定数 .、Ui の 乗算 


算 


テー ロー テ NHNNN 


加 


式 n の オプ ジェ クト ・ コ ー ド 


定数 2n の 滅 算 
加 算 に 
配列 要素 あたり の バイ ト 数 を 乗算 | 
配列 の 先頭 アド レス を 加算 | 


は 


加算 結果 が 示す メモ リ の 内 容 を ロー ド | 
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3-3 式 の コン ン \ ア と 


コン ピュ ー タ の 中 で は , n 次 元 の 配列 も | 次 元 の 配列 と し て 記憶 され る 。 そ の た め n 次 元 か 
ら 1 次元 に する 方 法 に よっ て メモ リ 上 で の 配列 要素 の 並び 方 が 異な る 。 こ の 第 | 方法 で は , 
た と えば A(2, 3) の 配列 は メモ リ 上 で 

者 ドレ ス 


A(I, !) | A(I. 2) | A(I, 3) | A(2, !) | A(2, 2) | A(2, 3) 


と な る (た だ し , 添字 の 下限 は 1! と する )。 


注 ) 4 は , i 番 目 の 添字 の 下限 , 
u は , 番目 の 添字 の 上 限 
n 


La は , azXaaX…Xa。 と いう 式 を 示す 。 


< 例 > 


| 要素 あたり 2 バイト ! 要素 あたり 2 バイ ト 
配列 A2 ( 式 1, 式 2 ) A3 【〔 式 1, 式 2, 式 3 ) 
| 還 こ I トー まま の 上 0 
| ? の 上 限 =5 ヶ の 上 限 =3 
4- 叶 人 
ヶ の 上 限 = 3 ヶ の 上 限 =4 
? の 上 限 =5 
人 ド : 式 | の オブ ジェ クト ・ コ ー ド 式 | の オプ ジェ クト ・ コ ー ド 
[pEc HL LD DE 4*3 
語 DE, 5 CALL IAUL : HL<HL*DE 
CALL IAUL : HL 一 HL*DE PUSH HL 
LPUSH HL 
式 2 の オプ ジェ クト : コ ー ド 。 | | 式 2 の オプ ジェ クト ・ コ ー ド 
[pEC HL LD DE, 3 
[POP DE in IAUL : HL 一 HL*DE 
LADD HL DE POP DE 
[ADD HL HL : HL-HL*2 ADD HL DE 
[LD DE, 配列 AZ の 先頭 アド レス [PUSH HL 
ADD HL DE 呈 5 
PS 間 | 式 3 の オプ ジェ クト コー ド 
INC HL MY DE 
ID  Dp (HU ADD HL DE 
EX 。 DE HL [ADD HL HL : HL-HL*2 
M LD DE, 配列 A3 の 先頭 アド レス 
1 HL DE 
LD  E. (HU 
INC HL 
LD  D, (HU 
EX DE, HL 
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2 次 元 以上 の 配列 (第 2 の 方 法 ) 


n 次 元 配列 配列 名 〔 式 1 , 式 2 , ・・・ 式 n )〕 


導 二 放 /」 し えき の 


| 炊 元 配列 配列 名 【(( 式 1 一 4) ( 戒 2 一 4)XTHUi+ ・・・ 土 ( 式 nー mx Ui 


式 | の オプ ジェ クト ・ コ ー ド 


定数 の 減算 

式 2 の オプ ジェ クト ・ コ ー ド 
定数 を の 減算 

定数 エ い の 乗 算 


テー ロー テ N HH 


ーー ニーー テ ーー ニー 
加 算 
基 n の オプ ジェ クト コー ド 
数 なの 減算 
定数 せい の 乗算 
加 算 
配列 | 要素 あたり の バイ ト 数 を 乗算 
配列 の 先頭 アド レス を 加算 


加算 結果 が 示す メモ リ の 内 容 を ロー ド 


この 第 2 方 法 で は , た と えば A(2, 3) の 配列 は メモ リ 上 で 
月 ドレ ス 


AG り ) | A(2. | AG. 2) | A(2, 2) | A0. 3) | A(2. 3) | 


と な る (た だ し , 添字 の 下限 は | と する )。 


〈 例 > 


| 要素 あたり 2 バイ ト | 要素 あたり 2 パ バイト 
配列 A2 〔 式 1, 式 2 〕 A3 [ 式 1, 式 2, 式 3 〕 
| 添字 の 下限 = | | 添字 の 下限 =0 
ヶ の 上 限 =5 ヶ の 上 限 = 3 
re - キ ーー 
ヶ の 上 限 = 3 7 の 上 限 =4 
2 
〉 の 上 限 =5 
オプ ジェ クト ・ 
コー ド 式 | の オプ ジェ クト ・ コ ー ド | 式 1 の オブジェクト. コード 
DEC HL [PUsH HL 
PUSH HL 
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3-3 式 の コン ン \ イ と 


| 素 2 の オプ ジェ クト コー ド | 式 2 の オプ ジェ クト ・ コ ー ド 
[pEC HL 店 DE, 5 
1 DE, 3 CALL 雪 : HL-HL* DE 
CALL IAUL : HL<-HL*DE 
POP DE は HL, DE 
HL, DE PUSH HL 


[ApD HL HL : HL-HL*2 
に DE, 配列 A2 の 先頭 アド レス 
ADD HL DE LD DE, 5*4 

敵 IAUL : HL<-HL*DE 


式 3 の オブ ジェ クト ・ コ ー ド 


INC HL POP DE 

LD  D, (HU 4 HL DE 

EX DE HL [ APD HL HL :HL-HL*2 
LD DE, 配列 A3 の 先頭 アド レス 
1 HL DE 
LD  E (HU 
INC HL 
LD  D, (HL) 
EX DE HL 


再帰 的 な 方 法 ど コン パイ ル す る と き は , 配列 は 変数 と 
同じ < 因子 > で 処理 し ます 。 配列 が 使え る 因子 の 構文 は 


と な り , 変数 名 な の か 配列 名 な の か は 記号 表 を 引い て わ 
か り ま す 。 < 因子 > の 構文 を 流れ 図 に する と 図 3-15 の よう 
に な り ま す 。 オ ブ ジ ェクト ・ コ ユー ド の 生成 は 構文 の 解析 
結果 か ら 図 3-14 の よう に し ます 。 

次 は , 代入 文 の 左辺 に 書か れる 配列 に つい て で す 。 左 
辺 に 配列 が 使え る 代入 文 の 構文 は , 
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と な り ま す 。 変数 名 か 配列 名 か は 記号 表 を 引い て 議 別 し , 
変数 名 な ら 6 〔1〕 で 説明 し た よう な オプ ジェ クト ・ コ ー 
ド を つく り ま す 。 配列 名 な 6 式 の 中 の 配列 と 同様 の 方 法 
で 処理 し ます が , 生成 する オプ ジェ クト ・ コ ー ド は 図 3- 
16 の よう に し ます 。 


ここ で 示し た 配列 の オブ ジェ クト ・ コ ユー ド は , 添字 の 
範囲 を チェ ッ ク し て いま せん 。 た だ と えば 配列 X (E) の 
添字 の 下限 が 1, 上 限 が 5 なら 変 数 世 の 値 が 1 一 5 以外 
な ら 6 本 来 は エラ ー と する よう な オプ ジェ クト ・ コ ユー ド を 
生成 し た ほう が よい の で す 。 し か し を うす る と オプ ジェ 
クト ・ プ ログ ラム が 大 きく な っ て 実行 速度 が 落ち る た だめ, 
メッツ コン 用 の コン パイ ラ の 多く は 添字 の 範囲 の チェ ッ ク 
を し て いま せん 。 


【 4 〕 関数 の 呼び 出し 
まず , 式 の 中 で 使わ れる 関数 の 構文 を 示し ます 。 


この 構文 は , [ ] が ( ) に な り , カッ コ 内 の 式 を 書 
か な く て も よい こと を 除い て は 配列 と 同じ で ある こと が 
わか り ま す 。 で すか ら , 関数 の 構文 解析 は 配列 と 同じ よ 
うに つく る こと が で きま す 。 た だ ただし, この 解析 結果 か ら 
つく られ る オブ ジェ クト ・ ユ ー ド に つい て は 3-7 で 説明 
し ます の で , そちら を ご らん くだ さい 。 


3-3 式 の ランバ \ ア と 


配列 が 使用 で きる 因子 の 流れ 図 (再帰 的 な 手法 ) 


定数 を ロー ド す る 
オプ ジェ クト ・ コ ー 
ド を 生成 


変数 を ロー ド す る 
オプ ジェ クト ・ コ ー 
ド を 生成 


配列 要素 を ロー 
ド し て くる よう な オ 
プ ジ ェ クト ・ コ ー ド 
を 生成 


n 次 元 配列 を | 次 
元 配列 に 変換 す 
る オプ ジェ クト ・ コ 
ー ド を 生成 
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代入 文 の 左辺 に 配列 が ある 場合 の オプ ジェ クト ・ コ ー ド 


ソー ス ・ プ ログ ラム < 例 > 式 の 演算 結果 は レジ スタ HL に 入る も の 
と する 。 配 列 は | 次 元 で 添字 の 下限 は 1, 
配列 名 【( 式 1,。 … 〕 : | 要素 あたり の バイ ト 数 は 2 バイ ト 。 


オプ ジェ クト ・ コ ー ド ソー ス ・ プ ログ ラム 


配列 名 〔 式 1 ) := 
図 3-14 の オブ ジェ クト ・ コ ー 
ド と 同じ 。 た だ し , 最後 が 配 
列 要素 の ロー ド で は な く , 
配列 要素 の アド レス を 一 時 式 ! を コン パイ ル し た 結果 
的 に どこ か に 記憶 し て お く 作ら れ た オプ ジェ クト ・ コ ー ド 
よう な オプ ジェ クト ・ コ ー ド 
に な る (※|) DEC HL 

ADD HL HL 

LD DE, 配列 の 先頭 アド レス 
ADD HL DE 

PUSH HL 


オプ ジェ クト ・ コ ー ド 


式 2 の オプ ジェ クト ・ コ ー ド 


式 2 の 演算 結果 を ※| で 求め 
た アド レス へ スト ア す る よ 式 2 を コン パイ ル し た 結果 

うな オプ ジェ クト ・ コ ー ド 作ら れ た オプ ジェ クト ・ コ ー ド 
を 生成 


EX DE, HL 
HL 

LD (HU, E 
HL 

LD (HL, D 


これ で 一 通り 式 の コン パイ ル に つい て 終わ り ま す が , 
この 項 で 示し た オブ ジェ クト ・ コ ユー ド は 構文 解析 の 結果 
の 通り に 変換 し た も の な の で , 効率 の 点 で 見 劣り する か 
も しれ ま せん 。 実際 に は オブ ジェ クト ・ コ ユー ド の 生成 順 
度 を スタ ッ ク を 使っ て 変え る な ど を 行い , で きる 限り 効 
率 化 を 図っ て 《 く だ きい 。 
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ワー 記号 麦 と 生 斉 放 


この 項 で は , 記号 表 の 構成 と 管理 , お よび 変数 名 や 配 
列 名 。 型 な ど を 宣言 する 定 言 文 に つい て 説明 し ます 。 


3-4-1 記号 表 の 構成 


コン パイ ラ の 中 に は 名 前 (変数 名 , 配列 名 . サ プ ブルー 
チン 名 , 関数 名 , ラベ ル な ど ) と を の 属性 (attributes) 
や アド レス (また は 値 ) を 記憶 し て お くく 記号 表 と いう 表 
が あり ます 。 図 3-17 は その 一 例 で す 。 この 中 で 属性 は コ 
ン パ イラ に よっ て 項目 数 や 内 容 が 異な り ま す 。 だ た と えば , 
変数 , 配列 , 関数 の 型 が 一 種類 し か な いと き は 型 の 項目 
は 必要 な いで し ょ うし , コン パイ ラ が 再 配置 可能 な オブ 
ジェ クト ・ プ ログ ラム を 出力 する な ら 6, 名 前 が 外部 記号 
記号 表 の 内 容 


名 前 が 配列 名 の 場合 
添字 の 範囲 を 示す 。 


名 前 が 配列 名 な ら 次 元 数 , 名 前 が サブ プル 
ー チ ン 名 , 関数 名 な ら 引 数 の 数 を 示す 。 


名 前 が 全域 的 か 局所 的 か を 示す 。 
名 前 が 変数 名 , 配列 名 。 サ 


プル ー チ ン 名 , 関数 名 の い 名 前 が 変数 名 か 配列 名 , 関数 名 の 場合 , 型 
ずれ な の か を 示す 。 を 示す 。 ま た , 仮 引数 か どう か も 示す 。 


で ある の か 内 部 記号 で ある の か を 示す 項目 が 必要 に な り 
ます 。 記号 表 は これ ら を 一 要素 と する 1 次 元 の 配列 と し 
て メモ リ 上 に 記憶 きれ ます 。 


3-4-2 記号 表 の 検索 と 登録 
記号 表 の 検索 方 法 で 代表 的 な も の に は , 
① シ リア ル ・ サ ー チ (serial search : 逐 次 検索 法 ) 
② バ イナ リ ・ サ ー チ (binary search : 2 分 検索 法 ) 
③ ハ ッシュ 法 (hash) 
な ど が あり ます 。 


シリ アル ・ サ ー チ は 記号 表 を 順に 比較 し て 検索 する 方 
法 で , 表 に 登録 きれ て いる 名 前 の 数 が n 個 な 6, 平均 す 
る と (n 十 1)/ 2 回 の 比較 で 目的 の 名 前 が 探し 出る され ま 
す 。 こ の 方 法 は アル ゴリ ズム ( 図 3-18) が 簡単 で ある 反 
面 。 n が 大 きく な る に つれ て 効率 が 悪く な り ま す 。 登録 
も 簡単 で , 新しい 名 前 は 記号 表 の 最後 に 追加 する だ け で 
す 。 
シリ アル ・ サ ー チ の 検索 と 登録 
① 初 期 設 定 
・ 記 号 表 ( 0 一 N-|) を クリ ア す る 。 
・ 現 在 の 登録 数 n を 0 に する 。 
記 号 表 
名 前 | 属性 | アド レス 


最大 登録 総 
数 =N 


する 名 前 は な 
い 


現在 登録 数 は n, つ まり 
記号 表 0 一 n-| に 名 前 が 
登録 され て いる 。 


3-4 記号 表 と 稿 言 交 


注 ) 登録 は , 記号 表 に 一 致す る 名 前 が 
あれ ば その 内 容 の 更新 。 新しい 名 
前 の 場合 は 追加 と な る 。 


記号 表 i の 位 
置 に 登録 する 


記号 表 n の 位 
置 に 登録 する 


記号 表 が 一 杯 
な の で 登録 で 
き な い 


バイ ナリ ・ サ ー チ は 効率 の よい 検索 方 法 で す が , 表 の 
名 前 が 常に 分 類 (sort : ソー ト ) る きれ て いな けれ ば な ら な 
いと いう 欠点 が あり ます 。 こ の 方 法 で は , 平均 する と 
logzn 回 の 比較 で 検索 で きま す 。 ア ル ゴ リ ズム は 図 3-19 の 
よう に な っ て いま す 。 これ は , まず 初め に 記号 表 の 中 央 
の 名 前 (n/2 番 目 に ある 名 前 ) と 比較 し ます (一 致す れ 
ば 検索 終了 )。 一 致し な か っ た と き に は , 表 が ソート され 
て いる た め 目 的 と する 名 前 が 中 央 より 前 の ブロ ッ ク に あ 
る の か 後 の ブ ロック に ある の か が わか り ま す 。 を そし て 目 
的 と する 名 前 が 含ま れ て いる と 思わ れる ブロ ッ ク に 再び 
同じ こと を する , と いう こと を 繰り 返し て 目的 と する 名 
前 を 探し 出し ます ( 図 3-20)。 こ の 方 法 で は 対象 の 表 が 常 
に ソー ト る れ て いな けれ ば な ら な いこ と か ら , 新しい 名 
前 を 登録 する に は 図 3-21 の ① の よ うに する 必要 が あり ま 
す 。 こ の 場合 , 表 中 の デー タ を 実際 に いち いち 移動 し た 
の で は 時 間 が か か りす ぎる の で , 図 3-21 の ② の よう に 各 
要素 の 位置 を 示す ポイ ンタ の 表 を 用 意 し ます 。 新 し い 名 
前 を 登録 する と き は , 記号 表 に は 単純 に 最後 に 加え , ポ 


hl 


バイ ナリ ・ サ ー チ の 検索 と 登録 


① 初 期 設定 ( 図 3-18 の ① と 同じ ) 登録 (昇順 に 登録 する ) 
② 検 索 (記号 表 の 名 前 は 昇順 に 記憶 され て いる ) 


i が 示 ず 
記号 表 の 名 前 と 
比較 


記号 表 が 一 杯 | | 記号 表 」-n-1 の 
な の で 登録 で | | 内 容 を |+1-n 
き な い へ 転送 


記 表 の 人 | | 来 に ー 和 
に 目的 と す | | する 名 前 は な Ser 
R 記号 表 i の 位 
人 き 」1 置 に 登録 する 


バイ ナリ ・ サ ー チ の 検索 例 


(① 記 号 表 に 一 致す る 名 前 が ある 場合 (② 記 号 表 に 一 致す る 名 前 が な い 場合 
下 の 記号 表 よ り 名 前 "KST” を 探す 下 の 記号 表 よ り 名 前 “KSU" を 探す 


回 目 2 回 目 3 回 目 4 回 目 回目 2 回 目 3 回 目 4 回 目 な し 


中 


ーk 


QNO 避 ょ の いい ーー の 


PSTT 


oO NN ひひ 避 ょ の いい 一 の 


8| QR1 
9| ST1 
10| WOK 10| WOK 
11| Z ーk 11| Z ーk 


n=12 な の て 平均 log。 12= ニ 3.58 回 の 比較 で 検索 で きる 。 4 回 目 の 比較 が 終わ っ た 所 で >k と な 
この 場合 , 4 回 目 の 比較 で 目的 の 名 前 を 探し 出し て いる 。 り 一 致す る 名 前 が な いこ と を 示す 。 


つ 〇 
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3-4 記号 表 と 宣言 文 


バイ ナリ ・ サ ー チ の た め の 記 号 表 へ の 新しい 名 前 の 登録 


① 記 号 表 の み の 場合 
この 記号 表 へ 名 前 "KSU” を 
生 録 ( 閣 加 


k と j の 間 に 追加 する 


② 記 号 表 の 他 ,. ポイ ンタ の 表 を 用 いる 場合 
名 前 "KSU" を 登録 (追加 ) 


ポイ ンタ 記号 表 


1 BCT 


C4 
FT20 
AA2 
PSTT 


ポイ ンタ の 方 が 記号 表 に 比べ 小さ い の 
で ポイ ンタ の 方 を 移動 させ た 方 が 速い 。 
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イン タ の 表 を ソー ト し ます 。 こ うす る と 常に ポイ ンタ の 
移動 どけ で 新規 登録 が で きる の で 時 間 が 節約 で きま す 。 

ハッ シュ 法 は 最も 効率 の よい 方 法 で , 一 回 ある い は 数 
回 の 操作 で 目的 と する 名 前 を 探し 出す こと が で きま す 。 
ハッ シュ 法 は "ハッ シュ 関数 ” と いう 関数 を 用 意 し て , 
鍵 (記号 表 の 場合 は 名 前 ) を を の 関数 か ら 6 求め た 値 で 登 
録 位置 と し , 目的 と する デー タ (この 場合 , 属性 ほ と ア ド 
ンス ) を 探す 方 法 で す 。 ハ ッシュ 関数 に は いろ いろ な つ 
くり か だ が あり ます 。 こ こ で は 例 と し て 名 前 を 鍵 , 記号 
表 の 最大 登録 総数 を N と し て 


i 三 (名 前 の 各 文 字 を 数 と し て 合計 し た 値 ) mod N 


と いう ハッ シュ 関数 を 考え ん ます 。“ 名 前 の 各 文 字 を 数 と し 
て 合計 し た 値 " と は 各 文 字 の ASC1I I コー ド を 足し た も 
の と いう 意味 で す 。 この 場合 、i が ハッ シュ 関数 の 値 (0 
ーN 一 1 の 値 を と る ) で 記号 表 内 の 位置 を 示し ます 。 る を 
し て , 登録 , 参照 は この i の 位置 に 行わ れ ま す 。 た と を え 
ば , “ABCD" と いう 名 前 が あっ た と し ます 。 最 大 登録 
総数 が 50 の 記号 表 の 場合 、 この 名 前 の 位置 は 


(“A" 十 "B" 土 “"C" 土 "D” ) mod 50 
ーー (41H 十 42H 十 43H 十 44H) mod 50 
(65 十 66 十 67 十 68) mod 50 

三 16 


と 求め られ ます 。 た だ た だし, ここ で 注意 し な けれ ば な ら な 
い の は , この ハッ シュ 関数 で は “DCBA" と いう 名 前 
で も i が 同じ 値 に な っ て し まう と いう こと で す 。 そこ で 
この よう な 場合 の 対策 と し て , 登録 時 に は i の 位置 か ら 
順に 空い て いる 位置 を 探し を こ へ 登録 する よう に し ます 。 
検索 時 に は i の 位置 か の ら シ リア ル ・ サ ー チ で 目的 の 名 前 
を 探し 出す よう に し ます 。 こ の よう な 方 法 を 特に オー プ 
ン ・ ハ ッシュ 法 ほ いい , ア ル ゴ リ ズム を 図 3-22 に 示し ます 。 
小型 の コン パイ ラ で 記号 表 の 最大 登録 数 が 500 程 度 な 


3-4 記号 表 と 千 言 婦 


ら 6, 検索 速度 や プロ グラ ム ・ サ イズ か ら 考 えて , アル ゴ 
リズ ム の 簡単 な と リア ル ・ サ ー チ が 妥当 だ と 思わ れ ま す 。 


オー プン ・ ハ ッシュ 法 に よる 検索 と 登録 


① 初 期 設 定 
@ 記 号 表 ( 0 一 N-|) を クリ ア , 
つま り 未 登録 の 状態 に する 。 


数 を 計算 値 は 」 に 入 い る 


i が 示す Yes 


遇 表層 均 前 
致 ? 


記号 表 が 一 杯 
記号 表 i の 位 

な の で 登録 で 回 

き な い 置 に 登録 する 


記号 表 i の 位 記号 表 に 一 致 
置 に 目的 と す する 名 前 は な 
る 名 前 が ある い 


名 前 の 各 文 字 
を NA[0 一 m] の 
配列 と 考え る 


※1 ハッ シュ 関数 の 計算 
は 次 の 式 で も よい 


隆 = (『 NA[K ) mod N 


115 


3-4-3 パス こと 表 管 理 
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1 メス 方 式 と 2 パス 以上 の 方 式 で は 記号 表 の 管理 の し 
か た が 異な り ま す 。 


[1 〕 1 パス 方 式 

1 ラス 方 式 で は 記号 表 へ の 登録 と 検索 を 同時 に 行い ま 
す 。 そ の た め ソ ー ス ・ プ ログ ラム 上 で 宣言 され る 前 に 名 
前 が 使わ れる こと が ある と いう 問題 が あり ます 。 こ の よ 
う な 場合 , 記号 表 か ら 6 名 前 を 検索 し て も 未 登録 し な っ て 
ュー ド 生 成 が でき ませ ん 。 これ は 次 の よう に 解消 し ます 。 
① 記 号 表 に 名 前 が 登録 きれ て いな か っ だ と き 

・ 構 文 か 6 名 前 の 種類 を 判断 し ます 。 た と えば , 配列 な 
6 名 前 の 直後 に は “[ " が あり , 関数 な ら 5“(, それ 以 
外 な ら 変 数 名 と する , な ど と 判断 し ます 。 

・ 記 号 表 の 属性 に 未定 義 を 表現 する フラ グ が ある も の と 
し て , 名 前 , 属性 (未定 義 フ ラグ は ON, 他 の 属性 は 構 
文 か ら 6 判断 し た 内 容 を 設定 ), ア ドレ ス ( で ゼロ に し て お 〈) 
を 登録 し ます 。 そ し て , この 内 容 を 検索 され た 名 前 の 属 
性 , アド レス と し て コー ド 生 成 し ま す 。 
② 記 号 表 に は 名 前 が 登録 きれ て いる が , 属性 の 未定 義 フ 
ラグ が ON 

・ 検 索 さ れ た だ 内容 で コード 生成 し ます 。 こ の と き , 名 前 
の アド レス を 記憶 し た (また は 記憶 する ) アド レス ( ロ 
ケー ショ ン ・ カ ウン タ の 値 ) を 一 時 的 に どこ か に 記憶 し 
て お きま す (ここ で は 工 に 記憶 する と し ます )。 

・ 記 号 表 へ 名 前 , 属性 , アド レス (T の 値 ) を 再 登 録 し 
ます 。 
③ 記 号 表 に 名 前 が 登録 され て いて , 属性 の 未定 義 フ ラグ 
も OFF 

・ 検 索 さ れ だ 内 容 び その まま コー ド 生 成 し ま す 。 

これ ら 6 に 伴い , 宣言 文 な ど が 新た に 名 前 を 登録 する と 
き に は 次 の よう な 処理 を し ます 。 


3-4 認 号 表 と 念 言 交 


① す で に 記号 表 に 名 前 が 登録 きれ て いる と き 

・ 属 性 の 未定 義 フ ラグ が OFF, また だ は 属性 の 内 容 が 宮 
言 る きれ た 内 容 と 異な る 場合 は エラ ー と し ます 。 

・ 直 接 メ モリ 上 に 機械 語 を つく る コン パイ ラ な ら 図 3-23 
の よう に 処理 し て , 未定 義 の アド レス を 現在 の アド レス 
(ロケ ーション ・ カ ウン タ の 値 ) に し ます 。 オ プ ジ ェ ク 
ト ・ プ ログ ラム を ファ イル に 出力 する コン パイ ラ な ら , 
未 登録 を 示す 情報 と 名 前 の アド レス を 出力 し ます 。 ロ ー 
ダ 婦 ある い は リン カ で は , その 情報 を 入力 し て 直接 メモ リ 
上 に 機械 語 を つく る コン パイ ラ と 同じ 方 法 で 未定 義 の ア 
ドレ ス を 正式 な 名 前 の アド レス に 変え て や り ま す 。 

・ 属 性 の 未定 義 ク ラグ を OFF に し , アド レス を 現在 の 
アド レス (ロケ ーション ・ カ ウン タ の 値 ) に し て 再 登 録 
いま すず 。 

② 未 登録 な 名 前 の 場合 

・ 宣 言 き れ て いる 通り に 属性 を 設定 し (未定 義 フ ラグ は 
OFF), 現在 の アド レス (ロケ ーション ・ カ ウン タ の 値 ) 
を アド レス と し て 記号 表 へ 登録 し ます 。 


1 パス 方 式 の 未定 義 ア ドレ ス の 処理 


未定 義 の 名 前 は , この よう に 本 来 名 前 の アド 剛 
レス が 記憶 され て いる は ず の メモ リ の アド レ 果 注 ) AAEAORY [choin] 
ス を チェ イン させ る こと で 覚え て いる 。 0 
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3-4 
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[ 2 〕 2 パス 以上 の 方 式 
2 パス 以上 の 方 式 で は パス 1 で 記号 表 を 作成 する の で 

2 パス 2 以降 は 記号 表 を 参照 する だ け で す 。 その だ め , パ 
ス 1 と プス 2 以後 で は 記号 表 に 対す る 処理 が 次 の よう に 
異な り ま す 。 
① ノ パス 1 

・ 記 号 表 へ は 追加 する だ け で 再 登録 は びき ませ ん 。 も し 
すでに 登録 され て いる 名 前 で 登録 し よう と し た 場合 は エ 
ジー も も ます 。 

・ 記 号 表 を 検索 し た 結果 , 未 登録 な 6 構文 か ら そ の 名 前 
の 種類 を 判断 し , 記号 表 に 一 致す る 名 前 が あっ た と き ほ と 
同じ 処理 を し ます 。 た だ し , 1 フ パ ス 方 式 の と き の よ うな 
登録 は 行い ませ ん 。 

・ 宮 言 文 な ど で 宣言 きれ る こと に よっ て 初め て 記号 表 へ 
の 名 前 の 登録 を 行い ます 。 
@ ノ パス 2 以後 

・ 記 号 表 は 検索 され る だ け で 登録 は され ませ ん 。 

・ 記 号 表 を 検索 し た 結果 , 未 登録 な ら エ ラー と し ます 。 
・ 宣 言 文 な どの 宣言 は 無視 し ます 。 


この よう に 1 フ パ ス 方 式 と 2 パス 以上 の 方 式 で は 記号 表 
の 管理 の し か た が 異な り , それ に 伴い 構文 解析 や コー ド 
生成 と いっ た 部 分 も 多少 影響 を 受け て いま す 。 ここ で 示 
し た 処理 は 記号 表 に 対す る 基本 的 な 処理 な の で , 実際 に 
は 言語 や コン パイ ラ の 実行 環境 に よっ て 処理 が 多少 複雑 
に な る こと が あり ます 。 


宣言 文 の 処理 と ラベ ル 

プロ グラ ム 言 語 で は 写 言 文 や ラベ ル と いう も の が 使わ 
れ ま す 。 宣言 文 や ラベ ル と 記号 表 と は 大 変 深 い 関 係 に あ 
る だ た だめ , この 項 で 言 文 の 処理 し ラベ ル の 説明 を する こ 
と に し ます 。 


3-4 記 政 表 と 千 計 怒 


宣言 文 に は 大 きく 分 け て デー タ に 関す る 宜 言 と 実行 制 
御 に 関す る 宣言 の 二 種 類 が あり ます 。 


[ 1 ) デー タ に 関す る 宣言 

これ は プロ グラ ム 中 で 使う 変数 や 配列 の 名 前 の 宣言 で 
す 。 コン パイ ラ は 宣言 る され た 名 前 に 対し て 属性 を 決め , 
アド レス を 割り 当て 記号 表 へ 登録 し プロ グラ ム 中 で その 
名 前 が 使 を 4 よう に し ます 。 

た と えば BASIC で は DIM, FORTRAN で は 
DIMENSION, INTEGER, REAL な ど が あり ます 。 こ 
の 中 で FORTRAN の INTEGER, つま り 整 数 型 で ある 
こと を 宣言 する た め の 文 の 構文 は 


INTEGER 文 


INTEGER 


注 : FORTRAN-7Z で は 算術 式 


と な り ま す 。 こ の 構文 図 か 6 つく っ た 流れ 図 が 図 3-24 で す 。 
他 の 宣言 文 . あ る い は FORTRAN, ALGOL 系 
の 他 の 言語 の 宣言 文 も 基本 的 に は 同じ よう な 構造 を し て 
いま す 。 


〔 2 〕 実行 制御 に 関す る 宣言 

これ は プロ グラ ム 中 で 使う サブ プ ル ー チ ン や 関数 の 名 前 
の 宣言 で す 。 

同一 の 言語 な ら , サブ ルー チン と 関数 は トー クン が 一 
部 異な る だ け で 構文 的 に は ほぼ 同一 で ある こと が 多い よ 
う で す 。 た と え ぇ ば, Pascal で は サブルーチン (Pascal で 
は 手続 き と 呼 ぶ ) を 


procedure 名 前 ( 仮 引数 , …) : 
関数 を 


119 


FORTRAN の INTEGER 文 の 処理 


INTEGER 文 属性 を 整数 弄 
の 配列 に する 』 
X が 次 元 数 , 
Y 」、x が 添字 の 
次 の トー クン 下限 。Z,-w が 
を 読む 添字 の 上 限 を 
示す 。 
アド レス を 現 
在 の デー タ ・ 
ロケ ーション ・ 
カウ ンタ の 値 
と する 。 


属性 を 整数 型 
の 変数 に する 。 
アド レス を 現 
在 の デー タ ・ 
ロケ ーション ・ 
カウ ンタ の 値 
INTEGER 女 
辿 乏 の 処理 は 終わ り 


・ 仮 引数 に つい て は , 属性 の み 更 新 
し , アド レス は 変化 させ な い 。 

: デー タ ・ ロ ケー ショ ン ・ カ ウン タ に 
つい て は , 3-6-| を 参照 。 


function 名 前 ( 仮 引数 , …) : 型 : 


と いう よう に 表し ます し , FORTRAN で は サブ ルー チ 
ン を 


SUBROUTINE 名 前 ( 仮 引 数 , …) 


関数 を 


型 FUNCTION 名 前 ( 仮 引数 , …) 
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3-4 記号 表 と 飼 言 妨 


と いう よう に 表し ます 。 で すか ら , コン パイ ラ 内 で の 実 
行 制御 に 関す る 宣言 の 処理 は どれ も ほぼ ば 同じ 構造 で つく 
る こと が で きま す 。 

これ ら の 宣言 は 変数 や 配列 の 宣言 と は ちがい , 名 前 を 
記号 表 に 登録 する 以外 に 実 引数 を 仮 引数 へ 転送 する よう 
な オプ ジェ クト ・ コ ー ド を 生成 し ます 。 同 時 に 仮 引数 の 
名 前 と 属性 を 決め , アド レス を 割り 当て 記号 表 へ 登録 し 
ます 。 実 引数 を 仮 引数 へ 転送 する オプ ジェ クト ・ コ ー ド 
は 引数 を 渡す 方 法 に よっ て 異な り ま す 。 詳 し く は 3-7 で 
説明 し ます 。 


FORTRAN の SUBROUTINE 文 の 処理 


SUBROUTINE 婦 


トー クン は 
SUBROUTINE ン 
? 


Yes 


N 
次 の 文 の 処理 へ ) | 次 の トー クン を 読む 
名 前 を 仮 引数 と し | | 名 前 の 属性 で 型 な ど は 
て 記号 表 へ 登録 暗黙 の 型 宣 言 に 従う 。 
No 
つっ ーー 


デー タ ・ ロ ケー ショ ン ・ 
カウ ンタ を 更新 


属性 を サブ ルーチン 注 1 
名 , 仮 引数 の 数 を 0, 実 引数 を 仮 引数 に 転送 
アド レス を 現在 の コ する よう な オブ ジェ ク 

ー ド ・ ロ ケー ショ ン ・ ト ・ コ ー ド を 生成 

カウ ンタ の 値 で 記号 
表 へ 登録 


次 の トー クン を 読む 


次 の トー クン を 読む 


SUBROUTINE 六 
の 処理 は 終わ り 


注 1) FORTRAN は 実 引数 と し て 変数 な どの アド 
レス が 渡さ れる の て で 仮 引数 の 方 で は その 
アド レス を 記憶 し て お く 。 

注 2) コー ド ・ ロ ケー ショ ン ・ カ ウン タ に つい て 
は 3-6-| を 参照 。 
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次 に , ラベ ル は 文 の 前 に 書き その 文 に 名 前 を つけ る も 
の で , 制御 文 の 飛び 先 と し て 使わ れ ま す 。 Pascal や AL 
GOL, PL/I で は 


ーー テナー の 〇 ー し ュー 


の よう に 書き ます 。FORTRAN や COBOL な ど で は あ 
る 特定 の 桁 位置 に 書か れ た 数 字 ま た は 名 前 を ラベ ル と し 
て いま す 。 ユ コンパ イラ は ラベ ル に 出会う と 。 その 名 前 に 
アド レス を 割り 当て 記号 表 に 登録 し ます 。 

最後 に , 宣言 文 に よら 6 ず , 式 の 中 で 新しい 変数 名 や 配 
列 名 を 使え ば 自動 的 に コン パイ ラ の ほう が 宣言 し て くれ 
る よう な 言語 (BASIC や FORTRAN な ど ) に つい て で 
す 。 こ の よう な 言語 の コンパ イラ は , 式 か 6 名 前 を 検索 
する 際 , 次 の ょ うな 処理 を し ます 。 
① 検 索 し た 結果 , 一 致す る 名 前 が な けれ ば 構文 か ら 属 性 

を 判断 し , アド レス を 割り 当て て 記号 表 へ 登録 する 。 
@② 登 録 し た 内 容 を 検索 し た 結果 と する 。 

こう し て 変数 や 配列 の 自動 宣言 が びき ます 。 


3- 4 - 5 全域 的 な 名 前 と 局所 的 な 名 前 の 処理 
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名 前 に は 有効 範 囲 が あり ます 。 た と えば FORTRAN 
で は , メイ ン ・ ル ー チ ン 内 の 変数 X と サブ ルー チン 内 の 
変数 双 と は まっ た だく 別 の も の と し て 扱わ れ ま す 。 また, 
Pascal な ど ブ ロッ ク 構 造 を 持つ 言語 で は , サブ ルー チン 
や 関数 が 書か れ た (宣言 され た ) 場所 に よっ て , 使え る 
名 前 の 有効 範囲 が 異な り ま す 。 こ こ で は , 有効 範囲 を 持 
っ た 名 前 を 記号 表 内 で と う 管 理 す る か に つい て 述べ ます 。 

BASIC の よう に どこ で も 同じ 名 前 を 共通 に 使う 言語 
で は , 名 前 の 使用 範囲 を 管理 する 必要 が あり ませ ん 。 

FORTRAN の 場合 , サブ ルー チン 名 や 関数 名 ( 文 関 
数 で は な く 関 数 呈 ゲロ グラ ム の こと ), ブ ロッ ク 名 な ど は 


3-4 康 号 表 と 飼 言 文 


同一 アロ グラ ム 内 で は 共通 に 使 を ます 。 つ まり , サブ ル 
ー チ ン 名 や 関数 名 は 全域 的 な 名 前 で ある わけ で す 。 と こ 
ろ が 変数 名 や 配列 名 な ど は 一 つの ルー チン 内 (メイ ン や 
サブ ルー チン , 関数 ) だ け で 使い , 他 の ルー チン か ら は 
使 を ませ ん 。 逆 に いえ ば , 他 の ルー チン で 同じ 名 前 の 変 
数 や 配列 が 使 を る と いう こと で す 。 つまり, 変数 名 や 配 
列 名 な ど は 局所 的 な 名 前 で ある わけ で す 。 

この よう な 言語 で は , 全域 的 な 名 前 と 局所 的 な 名 前 の 
た め に 別々 の 記号 表 を 用 いる の も 一 つの 手 で し ょ う 。 図 
3-26 が 二 つ の 記号 表 を 用 いた 場合 で , ① が 1 ラパス 方 式 の 
場合 ,。② が 2 パス 以上 の 場合 で す 。 1 パス 方 式 の 場合 
ー つ の ルー チン (メイ ン , サブ ルー チン , 関数 な ど ) の 
コン パイ ル が 終わ る ご と に すべ て の 名 前 を 削除 する よう 
に すれ ば , 局所 的 な 名 前 の 記号 表 が 小型 で も 多く の 名 前 
を 扱う こと が で きま す 。 2 ラパス 以上 の 方 式 で は , ラパス 2 
以後 に 渡す た め に パス 1 で プロ グラ ム 内 の 名 前 を すべ て 
記号 表 に 登録 せな ね ば な り ま せん 。 を そこで, 図 の よう に 全 
域 的 な 名 前 の 記号 表 に 局所 的 な 名 前 の 記号 表 に 対す る ポ 
イン タ を つけ る よう に し , 局所 的 な 名 前 どう し が 干渉 し 
な いよ うに し て いま す 。 


全域 。 局 所 の 二 つ の 記号 表 を 用 いた 例 (FORTRAN) 


① 1 パス 方 式 
全域 的 な 名 前 を 記憶 する 記号 表 局所 的 な 名 前 を 記憶 する 記号 表 


名 前 属性 アド レス 


し ーー 


この 表 に は サブ ルー チン 名 , ー つ の ルー チン の コン パイ ル が 終わ る と 局所 的 な 名 
関数 名 , ブロ ッ ク 名 な ど が 前 を 記憶 し て いる 記号 表 の 内 容 を すべ て クリ ア す る 。 
記憶 され る 。 この 表 に は 変数 名 , 配列 名 が 記憶 され る 。 
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全域 的 な 名 前 を 記憶 する 記号 表 局所 的 な 名 前 を 記憶 する 記号 表 
名 前 属性 アド レス ポイ ンタ 名 前 属性 アド レス 


FUN1 は S 
FUN2 局所 的 な 名 前 


SUB2 


サブ ルー チン SUBI の 
! 局所 的 な 名 前 


関数 FUNI の 
局所 的 な 名 前 


関数 FUN2 の 
局所 的 な 名 前 


この 表 に は サブ ルー チン 名 , 
関数 名 . ブロ ッ ク 名 な ど が 
記憶 され る 。 サブ ルー チン SUB2 の 
局所 的 な 名 前 


② 2 パス 以上 の 方 式 この 表 に は 変数 名 , 配列 名 が 記憶 され る 。 
検索 は ポイ ンタ が 示す 名 前 か ら 次 の ポイ ンタ 
が 示す 一 つ 手 前 の 名 前 まで の 部 分 で 行う 。 


次 は Pascal の よう に ブロ ッ ク 構 造 を 持っ た 言語 の 場 
合 で す ( 図 3-27 は ブロ ッ ク 構 造 で 名 前 が 使え る 範囲 を 示 
し た 例 )。 コ ン パ イラ が 1 フス 方 式 な ら 6 記号 表 を スタ ッ ク 
の よう な 構造 に し て 処理 し ます 。 図 3-28 の ① が その と き 
の 記号 表 の 操作 を 示し た も の で す 。 検索 法 し し て シリ ア 
ル ・ サ ー チ を 使う た め 検 索 効 率 が あま り よ く 《 あ り ま せん 
が , 方 法 が 簡単 な の で プロ グラ ミン グ が 楽 で す 。 

2 パス 以上 の 方 式 で は 図 3-28 の ② の よう に 記号 表 を リ 
スト 構造 に し て 処理 し ます 。 パ ス 1 で 一 つの プロ グラ ム 
内 で 使わ れ た だ すべ て の 名 前 を リス ト 構 造 で 登録 し . パス 
2 以後 の 検索 で は 現在 コン パイ ル し て いる ブロ ッ ク か ら 
ポイ ンタ を た だ どっ て 目的 の 名 前 を 探し 出す よう に し ます 。 

2 パス 以上 の と き は パス 1 で すべ て の 名 前 を 記号 表 に 
登録 する と 書き まし た が , 実際 に すべ て の 名 前 を 一 度 に 
管理 する の は メモ リ ・ サ イズ の 増大 や 検索 登録 ルー チ 
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3-4 記号 表 と 衛 文 


ン の 複雑 化 な ど 問 題 が 多い の で す 。 特に ブロ ッ ク 構 造 の 
場合 は 大 変 で びす 。 そこで, パス 1 で は パス 2 以後 で 最低 
必要 な 名 前 だ け を 登録 する だ け に し て , 他 の 名 前 は パス 
2 以後 で も 登録 , 検索 を する よう に すれ ば , 多少 管理 も 
簡単 に な り ま す 。 ときには この よう な 変則 的 な 方 法 も 必 
要 で す 。 


ブロ ッ ク 構 造 と 名 前 の 有効 範囲 


ブロック 内 で 宣言 それ を 使用 する こと が 
され た も の で きる ブロ ッ ク 


Y.A.B,Z.AN 


Y.A.B 
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プ ブロック 構造 と 記号 表 (Pascal) 


X. AB は ブロ ッ ク 
(サブ ルー チン , 関数 ) 

Xn は ブロック X 内 の 変数 , 配列 
An は  〉 A 内 の ル 
Bn は 〉 B 内 の 7 


② 2 パス 以上 の 方 式 


X.Y, AB は ブロ ッ ク 


X1.X2 は ブロ ッ ク X 内 の 変数 , 配列 
YY2 ほ は ぁ ヵ Y ヶ 
A1.A2 は 7 A ヶ 
B1.B2 は ヶ B り / 


注 1) ポイ ンタ | : 一 つ 前 の 戻り 。 
ポイ ンタ 2 : | レベル 上 の 名 前 へ 。 
ポイ ンタ 3 : 同 レ ベル の 名 前 へ 。 


注 2) 属性 の P は サブ ルー チン (手続 き ), 
関数 を 示し , V は 変数 , 配 列 を 示す 。 
記号 表 の 内 容 ( パ ス | で 作ら れる ) 
ボ ポインタ 
名 前 属性 アド レス 3 
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コン パイ ラ の 中 で 式 と 並ん で 大 き な ウ ェ イ ト を 占め て 
いる の が 制御 文 の 処理 で す 。 制 御 文 に は IF 文 , GOTO 
文 , FOR 文 , DO 文 , CALL 文 な どの 古典 的 な 文 や , 
WHILE 文 , REPEAT 文 , CASE 文 な ど 新 し い 構 造 化 プ 
ログ ラミ ング の た だめ の 文 な ど が あり ます 。 こ こ で は これ 
ら を 一 通り 説明 する た め に , 多種 の 制御 文 を 持っ た Pas 

al 言語 を 例 と し て , どう コン パイ ル し , オブ ジェ クト ・ 
問 時 FPN を 説明 し ます 。 


3-5-1 楽 件 文 
条件 文 は 流れ 図 記号 の ^ 判 断 ” に 相当 する 文 で , Pascal 
守 IF 文 と CASE 文 の 二 つ が あり ます 。 IF 文 は どの よさ 
な 言語 に も 必ず 備わっ て いる 文 で す 。CASE 文 は , 古 
言語 で は な いも の が 多い よう で す 。 


(1〕 IF 文 

IF 文 の 構文 は 図 3-29 の ① の よう に な っ て いま す 。 こ 
れ を 流れ 図 で 表し た の が ② で す 。 さ る ら に , この 流れ 図 を 
ア ャ ンプ ブラ 言 語 で 表し た の が 図 3 二 30 で びす 。 コ ユン パイ ラ が 
① の 構文 か ら 図 3-30 の オブ ジェ クト ・ コ ユー ド を 生成 する 
と き , 一 つ 問 題 な の が 文 1 や 文 2 を 飛び 越す 命令 の ジャ 
ンプ 先 ア ドレ ス ( 図 で は ラベ ル ad1, ad2 ) の 設定 の し か 
た で す 。 この アド レス は 文 1 や 文 2 の オプ ジェ クト ・ コ 
ー ド の 大 きる が わか ら な いう ち は 決 め ら れ ま せん 。 を そこ 
で , と りあ ぇ え ず アド レス 部 を で ぞ ロ (た と えば ~JP 0000H” 
な ど ) と し て 仮 の コー ド を 生成 し て むき, 文 の オブ ジェ 
クト ・ コ ユー ド の 生成 が 終わ っ た 時 点 で 正式 の アド レス を 
設定 し て や り ま す 。 この こと を 加味 し た の が , 図 3 一 31 の 


うー 独 衝 文 の コン シル と 
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オプ ブ ジ ェクト ・ コ ユー ド と 図 3-32 の コン パイ ル 手 順 の 流れ 


図 で す 。 


この こと は 他 の 制御 文 に も ある 問題 な の で , 同じ ょ う 


に 処理 し ます 。 


IF 文 (Pqscql ) 


式 が 0 以外 の と き が 真 (true ) で 女 | を 実行 , 式 が 0 の と き 信 (false ) で 女 2 を 実行 。 
④② WMF 文 を 流れ 図 で 表す 
if 式 then 文 | 


IF 文 を アセ ンプ ラ 言 語 で 表す 


if 式 then 文 | else 文 2 


if 式 then 文 | else 文 2 


式 の 
オプ ジェ クト ・ コ ー ド 


LD AH | 式 の 結果 が 
OR L ゼロ な ら od | 
JP  Z odi 」 へ ジャ ンプ する 


文 1 の 
オブ ジェ クト ・ コ ー ド 
に ll 


qd|: 
※1 式 の オブ ジェ クト ・ コ ー ド は 
レジ スタ HL に 結果 が 入 い 

る も の と する 。 2 ・ 
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式 の 
オプ ジェ クト ・ コ ー ド 


LD A,H 式 の 結果 が 
OR L ゼロ な ら od| 
放 Z adl へ ジャ ンプ する 


オプ ジェ クト ・ コ ー ド 


IF 文 の オプ ジェ クト ・ コ ー ド 


ソー ス ・ プ ログ ラム if 式 then 文 1 


3 式 の オプ ジェ クト ・ コ ー ド 


LD A, H 
OR L 
JP Z, 0000H 


文 | の オプ ジェ クト ・ コ ー ド 


EQU $ 
ORG stadI 十 | 
DEFW jpad | 


ORG jpodi 


ソー ス ・ プ ログ ラム 放 式 then 文 1 


オブ ジェ クト ・ コ ー ド Fo コー 


LD AH 
OR L 
JP Z, 0000H 


文 | の オプ ジェ クト ・ コ ー ド 


JP 0000H 
EQU $ 

ORG sfadI 十 | 
DEFW jpadI 
ORG jpgd| 


文 2 の オプ ジェ クト ・ コ ー ド 


$ 
sfad2 十 | 


jpad2 
jpad2 


3-5 銅 郷 文 の マンバ パイ と 


結果 は レジ スタ HL に 入 い る 


仮 の コー ド を 生成 し て お く 


仮に 生成 し て お いた ジャ ンプ 
命令 の アド レス 部 に 正式 の ジ 
ャ ンプ 先 を 設定 


else 文 2 
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加 難 人 め IF 文 の コン バイ ル 


どい う オ プ ジ ェ 
クト ・ コ ー ド を 生成 


jpaqd 一 コー ド ・ ロ 
式 の オプ ジェ ナー ショ ンカ ウン 
クト ・ コ ー ド を 仮に 生成 し て お いた ※| | | タ 
生成 の ジャ ンプ 命令 の アド レ | | コー ド . ロ ケー ショ 
ス 部 に 正式 の ジャ ンプ 先 |] ン ・ カ ウン タ sfa 


隊 AH" を 設定 する よう な オプ ジ 


| 鈴 0000H" 


d 十 | 

*OR L" ェクト ・ コ ー ド を 生成 “DEFW jpgd" 
と いう オプ ジ と いう オプ ジェ ク 
ドコ ーー ン ド ト ・ コ ー ド を 生成 
を 生成 コー ド ・ ロ ケー シ 
ケー ショ ンカ ウン | 7 ウー 

He タ の 値 を 記憶 し 
kaw る お ] 六 あ ド * 


現在 の コー ド ・ ロ 


ケー ショ ン ・ カ ウン 
タ の 値 を 記憶 し 
て お く 


ロケ ーション シ * 
カウ シタ 


シタ 


な ら ジャ ンプ する | | ご いう オプ ジェ 

2 生生 六 | | 上 * コ ヨード を SA 
0 ケー ショ ンカ ウ 
クタ 


テス ト 結果 が ゼロ 


仮に 生成 し て お いた ※2 
(※1) kr 
アド レス 部 に 正式 の ジャ |.|・ pad な 
ンプ 先 を 設定 する よう な | | ua ォ プ ウェ ク 
オプ ジェ クト ・ コ ー ド を 生成 M 
炊 の トー クン を 


IF 文 の 
文 | の オプ ジェ ク コン パイ ル は 終わ り 


注 ) この 流れ 図 を プロ グラ 
ム し た 場合 , 再帰 的 な 
プロ グラ ム に な る 。 
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3-5 廊 御 及 の コン パイ と 


〔2] CASE 文 

CASE 文 の 構文 は 図 3-33 の ① の よう に な っ て いま す 。 
これ を 流れ 図 で 表し た の が ②, アセ ンプ ラ 言 語 で 表し た 
の が 図 3-ー34 で す 。 図 3 一 34 は 式 の 演算 結果 と 定数 と の 比 
較 に ラン タイ ム ・ ル ー チ ン を 使っ て いま す 。 直接 比 較 す 
る と 定数 が 多く な る に つれ て 比較 部 分 の 機械 語 が 多く な 
り ま す 。 た と えば , 二 つ の 定数 と 比較 する 場合 , 直接 比 
較 だ と 


LD HL, 定数 1 
OR A 

SBC HL, DE 

JR Z,。 EQOCONS 
LD HL, 定数 2 


OR A 
SBC HL, DE 
JP NZ, CASEX 


EQOCONS : 


CASE 文 (Pascql) 
① CASE 文 の 構文 


② CASE 文 の 流れ 図 


f GO 
Se 才 . 9 式 三 定数 llor 式 三 定 数 I2or…or 式 三 定数 In」 


定数 |, 定数 12,…, 定 数 ln: 文 1:| 

2I, 定数 22,…, 定数 2n。: 文 2 : 
ee す 。 ・ | 式 ニ 定数 2l or 式 三 定数 22or…or 式 三 定数 2n。 
定数 ml, 定数 m2,… 定数 mn 文 m 
end 


CASE 文 を アセ ンプ ラ 言 語 で 表す 


式 of 


ンー , 定数 12 


こ デ 


定数 ml , 


end 


和 TA 2 
式 の オプ ジェ クト ・ コ ー ド 前 条 は レジ スタ NZ, cose3 


DE, HL 廊 ! 一 文 m の 実行 が 文 | の オプ ジェ クト ・ コ ー ド 

終わ っ た と き ラ ベル 
HL, cqsend cosend へ 行く た め 
に スタ ッ ク に アド レス 
HL を PUSH し て お く 。 


定数 と 比較 する ラ 
CITST ンタ イム ・ ル ー チ ン 


ni」 比較 する 定数 の 数 
時 4 

定数 casem:CALL CLTST 
定数 12 

二条 FR DEFW ns 

き No DEFW 定数 ml 
定数 Ini DEFW 定数 m2 


一 致す る 定数 が な 
NZ, cose2 本 ンプ 


J 廊 | の オプ ジェ クト コー ド | DEFW 定数 mn。 


ェ ラッ ーーJP NZ,CASERR | ば テラ ター 


RET 命令 の 実行 に 
RET ! より ラベ カル cagend 


case2:CALL CITST へ 和 《 文 m の オプ ジェ クト ・ コ ー ド | 
DEFW  n。 了 


ea DEFW 定数 21 cosend: 
DEFW 定数 22 


DEFW 定数 2n。 


* 使 用 ラン タイ ム ・ ル ー チ ン 
@CLTST … レ ジス タ DE と 指定 され た 複数 の 定数 と 比較 し , 一 致す る も の が 
あれ ば Z フ ラグ を 1 に , な けれ ば Z フ ラグ を 0 に する 。 
@⑯CASERR… エラ ー メ ッ セ ー ジ の 表示 と アボ ポート を 行う 。 
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3-5 六 御 区 の コン パイ と 


と な 5 合計 14 バ イト の 大 きる に な り ま す 。 ラ ンタ イム ・ 
ルー チン に CASE 文 用 の 定数 比較 ルー チン を つく っ て 
お く と 

| CALL  CLTST 

DEFVV 2 

DEFW 定数 1 

DEFWV 定数 2 

JP NZ, CASEX 


と な り 合 計 9 バ イト で , 5 バイ ト 小 さく な っ て いま す 。 
この バイ ト 数 の 差 は 比較 回 数 に つれ て 大 きく な り ま す 。 
と ころ が , 定数 が 一 つの 場合 は どう で し ょ う 。 直接 比 較 
に: 電 


LD HL, 定数 
OR  A 

SBC HL,DE 

JP NZ, CASEX 


と な り 5 合計 6 バイ ト の 大 きる に な り ま す 。 ラ ンタ イム ・ 
ルー チン を 使う と 


CALL  CLTST 
DEFW 1 

DEFW 定数 

JP NZ, CASEX 


と 合計 7 バイ ト , 今度 は 1 バイ ト 増 えて し まい まし た 。 
CASE 文 の 場合 、 あ る 文 の 条件 に な る 定数 は 一 文 あ た 
りー つの 場合 が 多い よう で す 。 つまり, 


case 式 of 
定数 1 1 文 1: 
定数 m : 廊 m 
end 
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と 書か れる こと が 多い わけ で す 。 と いう こと は , 直接 比 
較 し た ほう が ラン タイ ム ・ ル ー チ ン で 比較 する より 生成 
され る オブジェ クト ・ コ ー ド が 小さ く な り ま す 。 
以上 の よう な こと か ら 6, CASE 文 を コン パイ ル す る 4 場 
合 。 トー クン ~: の 前 の 定数 が 一 つ な ら 6 直接 比較 , 定 
数 が 二 つ 以 上 なら ラン タイ ム ・ ル ー チ ン を 使う よう な オォ 
プ ジ ェ クト ・ コ ー ド を 生成 する よう に し ます 。 こ うし て 
CASE 文 を コン パイ ル し た だ とき 生 成す る オプ ジェ クト ・ 
コー ド は 図 3-35 の よう に し ます 。 図 3ー36 は , この よう 
な コー ド を 生成 する CASE 文 の コンパイル 手 順 を 流れ 
図 に し た も の で す 。 
(加藤 CASE 文 の オプ ジェ クト ・ コ ー ド 


ソー ス ・ プ ログ ラム cose 式 of 定数 l: 文 1: … : 定 数 m: 文 m end 


オブ ジェ クト ・ コ ー ド | 式 の オプ ジェ クト ・ コ ー ド | | 基 の 類 果 は レジ スタ HL に 入 いる 。 


EX DE, HL DE ご HL 
sad0 :LD HL, 0000H  ) 仮 の コー ド を 生成 し て お く 
PUSH HL 

LD HL, 定数 | 
この 部 分 が OR A 
[定数 上 唐 | SBC HL, DE 


の オブ ジェ ク は 

ト ・ コ ー ド で > っ JP NZ, 0000H 』 

後 の > . コ ユー ド | 仮 の コー ド を 

2 文 1| の オブ ジェ クト ・ コ ー ド 生成 し て お く 
5 RET 


ua は EQU $ 仮に 生成 し て お いた ジ 
も 同じ よう に ャ ンプ 命令 の アド レス 
コー ド を 生成 の ORG stodl 十 | 部 に 正式 の ジャ ンプ 先 
する 。 DEFW jpad | を 設定 


ORG jpad | 


定数 が ニ つ 
以上 の 場合 


ラ シ タ イム ・ 
ルー チン 

CLTST を 使 
う コ ー ド を 
生成 する 。 


定数 が 一 つの 場合 この 
LD HL。 定数 m | | コー ド を 生成 する 。 
OR A 定数 が 二 つ 以 上 の 場合 


※ | の よう な コー ド を 
SBC HL DE ます 


P NZ, 0000H  ) 仮 の コー ド を 生成 し て お く 
廊 m の オプ ジェ クト ・ コ ー ド | 

RET 

EQU $ 

ORG stqadm 十 | に こま 
ンプ 命令 の アド レス 

DEPW CASERR に 2 アレ 

ORG staqd0 十 | を 設定 

DEFW jpadm 

ORG jpadm 
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3-5 虎 御 文 の フン ン \ イ と 


CASE 文 の コン バイ ル 


CASE 文 


*EX DE,. HL" の 


コー ド を 生成 


現在 の コー ド ・ ロ ケ 
ーション ・ カ ウン タ | sfqd0- コ ー ド ・ ロ ケー ショ ン ・ カ ウン タ 
の 値 を 記憶 し て お く 


人 

た と き 次 に 実行 す 5 L 

ッ ク に 入れ る よう | | と いう オプ ジェ クト ・ コ ー ド を 生成 
な オプ ジェ クト ・ コ ー 

ド を 生成 


コー ド ・ ロ ケー ショ ン ・ トー クン を スタ ッ ク へ es 
カウ ンタ の 値 よ り 4 を PUSH する 
引く ( 注 ) Yes 

No Ce 


⑥) 次 の トー クン を 読む 
( 注 ) Y 
これ は 仮に 生成 し て お No 3 
いた ※1 の オプ ジェ クト ・ が スタ ッ ク よ り 定 数 を 
コー ド を 消す た め に 行 POP す る 


っ て いる 。 Yes 


次 の トー クン を 読む オプ ジェ クト ・ コ ー ド 


"SBC HLLDE" 
を 生成 する 
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オプ ジェ クト コード 
を し で 

“CALL CLTST" 
“DEFW n" 


オプ ジェ クト ・ コ ー ド 
峰 し 補 

"DEFW 定数 
を 生成 する 。 


nn 一 | 


Yes 
現在 の コー ド ・ ロ ケ 
ーション カウ ンタ の 
値 を 記憶 し て お く 


Z ララ グ が 0: な らち 
ジャ ンプ する よう な 
オプ ジェ クト * コ ー ド 
を 生成 


次 の トー クン を 読む 


5 


』 は 定数 の 数 


実際 に は 定数 | 一 n は 、 
DEFW 定数 n 


DEFW 定数 | 
と 逆順 に 記憶 され る 


.| sfad ・- コ ー ド ・ ロ ケー 
ショ ン ・ カ ウン タ 


~] と いう オプ ジェ クト ・ コ ー 
ド を 生成 


注 ) この 流れ 図 を プロ グラ 
ム し た 場合 再帰 的 な 
プロ グラ ム に な る 。 


仮に 
"JP NZ.0000H" 


No 
交 5 
Yes 
火 の ト ー ク ン を 読む 


次 の トー クン を 読む 


仮に 生成 し て お い 
た ※2 の ジャ ンプ 命 
令 の アド レス 部 に 正 


式 の ジャ ンプ 先 を 設 | 


定 す る よう な オプ ジ 
ェクト ・ コ ー ド を 生成 


仮に 生成 し て お い 
た ※1,.※2 の ジャ 
ンプ 先 を 設定 する 
よう な オプ ジェ クト ド * 
コー ド を 生成 


次 の トー クン を 読む 


CASE 文 の 
コン パイ ル は 終わ り 


jpad 一 コー ド ・ ロ ケー 
ショ ン ・ カ ウン タ 

コー ド ・ ロ ケー ショ ン ・ カ 
ウン ターsfad 1 十 | 
“DEFW jpad" と い 

う オ ブ ジ ェクト ・ コ ー ド を 生成 
コー ド ・ ロ ケー ショ ン ・ カ 
ウン ターー jpad 


jpad 一 コー ド ・ ロ ケー 

ショ ン ・ カ ウン タ 

コー ド ・ ロ ケー ショ ン ・ カ 

ウン ターーstod| 十 | 
"DEFW CASERR" と いう 
オプ ジェ クト ・ コ ー ド を 生成 


"| コー ド ・ ロ ケー ショ ン ・ カ ウ 


ンタ ーstad0 十 | 
“DEFW jpad" と いう 
オプ ジェ クト ・ コ ー ド を 生成 
コー ド ・ ロ ケー ショ ン ・ カ ウ 
ンタ ー jpod 


3-5 制御 文 の コン パ ア と 


3-5-2 繰り 返し 文 


繰り 返し 文 は 同じ 文 を 繰り 返し 実行 る せる 文 で , Pas 
cal に は WHILE 文 ,REPEAT 文 , FOR 文 の 3 種類 あり 
ます 。 


〔1〕 WHILE 文 

WHILE 文 の 構文 は 図 3-37 の ① の よう に な っ て いま 
す 。 こ の 文 を 流れ 図 で 表し た の が ② で す 。WHILE 文 は , 
条件 が 成立 し て いる 間 あ る 文 を 繰り 返し 実行 する 文 で , 
初め に 条件 ( 式 の 値 ) を 調べ る の で , 条件 に よっ て は 一 
度 も 文 が 実行 きれ な い 場 合 も あり ます 。 こ の WHILE 文 
を アセ ンプ ブラ 言語 で 表し た の が 図 3-38 で す 。 そし て 。, 
3 一 39 が WHILE 文 を コン パイ ル し た と き の オ プ ブ ジ ェ ク 
ト ・ コ ユー ド で す 。 図 3ー40 は その 生成 手順 を 流れ 図 で 表し 
た も の で す 。 

WHILE 文 の 処理 で 一 つ 注 意 す る 点 は , 繰り 返す た め 
の ジャ ンプ 命令 の 生成 で す 。 IF 文 の と き と は ちがい , ジ 
ャ ンプ 命令 を 生成 する 段階 で ジャ ンプ 先 ア ドレ ス が わか 
っ て いる の で , 相対 ジャ ンプ 命令 で 届く 範囲 で ある か ど 
うか も わか り ま す 。 そこで , オプ ジェ クト ・ コ ユー ド を な 
る べく 小さ くす る た め に , で きる だ け 2 バイト で 済む J 
R 命 令 を 生成 する よう に し ます 。 こ の こと は WHILE 文 
以外 で も 同様 で す 。 


WHILE 文 (Pascql) 


① WHILE の 構成 


(にゅ) 
式 が 0 以外 の と き が 真 (frue ) 0 の と き 人 (false). 式 が 真 で ある 間 , 文 の 実行 が 繰り 返さ れる 。 


② WHILE 文 の 流れ 図 
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WHILE 文 を アセ ンプ ラ 言 語 で 表わす 


While _ 式 do 女 


gm 
※1 
CdI: | 式 の オプ ジェ クト ・ コ ー ド 間 


LD AH 
OR 式 の 結果 が ゼロ な ら 


qd2 へ ジャ ンプ する 
JP Z, cdz 
文 の オブジェ クト - コ ー ド | | 


ラベ ル gd | へ の ジャ ンプ に は 届く 
JP adi 人 合 で あれ ば JR る 負 を 使う 


※1 結果 は レジ スタ HL に 入 い る も の と する 。 


WHILE 文 の オプ ジェ クト ・ コ ー ド 


ソー ス ・ プ ログ ラム While 式 do 女 
オプ ジェ クト ・ コ ー ド 
lpad :| 式 の オプ ジェ クト ・ コ ー ド 式 の 結果 は レジ スタ HL に 入 い る 。 
ID A, H 
OR L 
stad : JP Z. 0000H 仮 の コー ド を 生成 し て お く 。 


| 文 の オプ ジ ェクト ・ コ ー ド 


JP Ipad JR 命令 が 使え る よう な ら JR 命令 に する 。 
jpad EQU $ 


ORG sfad 十 | 仮に 生成 し て お いた ジャ ンプ 命 令 の ア 
DEFW jpad ドレ ス 部 に 正式 の ジャ ンプ 先 を 設定 


ORG jpad 
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3-5 廊 御 丸 の ラン パイ と 


WHILE 文 の コン バイ ル 


WHILE 文 


現在 の コー ド ・ ロ ケ 

ーション ・ カ ウン タ の | しょ コロ ケー: "JP lpad" ま た は 

値 を 記憶 し て お く | 1 この | 15od" の オブ 
ジェ クト ・ コ ー ド を 生成 


仮に 生成 し て お い | | jpodー コ ー ド ・ ロ ケ 
た ※1 の ジャ ンプ 命 | | この カウ ンタ 
令 の アド レス 部 に 正 | | ヵ ゥ ン ターstod 
式 の ジャ ンプ 先 を |] “DEFW jpgd" と い 
設定 する よう な オ PS ド 
。 プ ジ ェ クト ・ コ ー ド を < 
式 の 結果 が ゼロ か | |・Om 生成 ciPo 


の 引 カウ ンタ ーjpod 
どう か テス ト す る オプ |…| と いう ォ プ ジェ ク 22 
ジェ クト ・ コ ー ド を 生成 | | ト - コ ー ド を 生成 WHILE 壇 の 

コン パイ ル は 終わ り 
テージ 注 ) この 流れ 図 を ブロ グラ 


ン ・ カ ウン タ ム に し た 場合 , 再帰 的 
な プロ グラ ム に な る 。 


ーション ・ カ ウン タ の 


現在 の コー ド ・ ロ ケ | | "99 
値 を 記憶 し て お く 


テス ト 結 果 が ゼロ な | | 仮に 

ら ジ ャ ンプ する よう な |.」 “JP Z.0000H" 
オプ ジェ クト ・ コ ー ド と いう オプ ジェ ク 

を 生成 トコ ー ド を 生成 


〔2〕 REPEAT 文 

REPEAT 文 の 構文 は 図 3-41 の ① の よう に な っ て いま 
す 。 こ の 文 を 流れ 図 で 表し た の が ② で す 。REPEAT 文 
は , ある 条件 が 成立 する まで , repeat と until の 間 に あ る 
文 を 繰り 返し 実行 する 文 で す 。 条 件 ( 式 の 値 ) が あと で 
調べ られ る の で 最低 一 度 は repeat と until の 間 に あ る 文 
が 実行 きれ ます 。 こ れ を アセ ンプ ブラ 言 語 で 表し た の が 図 
3 一 42 で , 生成 する オブ ジェ クト ・ コ ー ド も 同じ で す 。 
図 3-43 は その 生成 手順 を 流れ 図 で 表し た も の で す 。 
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REPEAT 文 (Pascql) 


(① REPEAT 廊 の 構文 


ーーCee の 


式 が 0 以外 の と き が 真 (frue)、0 の と き 偽 (false )、 式 が 真 に な る まで repeat と unfil の 間 の 文 を 実行 する 。 


④② REPEAT 文 の 流れ 図 
repeat 文 1: 文 2:…: 廊 n until 式 


文 | 


repeot 文 |: に ーッ 5 文 n unfl 式 


ad|: 文 | 一 文 nm の ーn | 


オプ ジェ クト ・ コ ー ド 
※1 


式 の 結果 が ゼロ な ら qadI ヘ へ ジャ ンプ する 。 
JR 命令 が 使え る な ら JR 命令 を 使う 。 


※1 結果 は レジ スタ HL に 入 い る も の と する 。 
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3-5 御 妨 の コン パイ と 


REPEAT 文 の コン パイル 


REPEAT 女 


式 の 結果 が ゼロ か ど 


うか テス ト す る オプ ジ |-| 


ェクト ・ コ ー ド を 生成 
現在 の コー ド ・ ロ ケー 

ショ ン ・ カ ウン タ の 値 |… テス ト 結 果 が ゼロ な 
を 記憶 し て お く ら ジ ャ ンプ する よう 


な オプ ジェ クト コー | 


ド を 生成 


と いう オプ ジェ ク 
ト ・ コ ー ド を 生成 


“JP Z, Ipad" 
また は 
"JR Z,Ipad" 


の オプ ジェ クト ・ 
コー ド を 生成 


注 ) この 流れ 図 を プロ グラ 
ム に し た 場合 再帰 的 
な プロ グラ ム に な る 。 


〔3〕 FOR 文 

Pascal の FOR 文 の 構文 は 図 3-44 の ① で , ② が この 
文 を 流れ 図 で 表し た も の で す 。 初 期 値 と 終値 を 示す 式 は 
繰り 返し の 前 に 計算 され , 初期 値 は 制御 変数 に , 終値 は 
メモ リ 上 に 記憶 され ます 。 最 初 に 制御 変数 と メモ リ 上 の 
終値 と を 比較 し , 終了 条件 が 成立 し て いれ ば 繰り 返し を 
終わ り , 成立 し て いな けれ ば 文 を 実行 し て 制御 変数 の 値 
を 更新 し ます 。 初 期 値 と 終値 に よっ て は 文 が 一 度 も 実行 
され ませ ん 。 終値 の 前 に 置か れ た トー クン が to" だ と 繰 
り 返 し 終了 条件 が 


| 制御 変数 > 終値 
と な り , 制御 変数 は 文 が 実行 し 終わ る ご と に イン クリ メ 
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FOR 文 (Pascql) 


始め に 制御 変数 に 初期 値 が 設定 され , to の 場 
合 は 制御 変数 の 値 が 終値 を 越え る ま て 制御 変 
数 の 値 を イン クリ メン ト し な が ら 廊 を 実行 する 。 

downfo の 場合 に は 制御 変数 の 値 が 終値 より 
も 小さ く な る まで , 制御 変数 の 値 を デ ク リ メ 
ント し な が ら 廊 を 実行 する 。 


② FOR 文 の 流れ 図 
for 変数 := 式 | fo 式 2 do 女 for 変数 


変数 一 変数 士 | 変数 一 変数 一 ! 


注 ) 式 2 の 終値 は femp と いう 場所 へ 記憶 し て お 
き , 変数 と 式 2 の 終値 は . じかに 比較 し な い 。 


ント ( 十 1) され ます 。^downto" だ と 繰り 返し 終了 条件 
が 


制御 変数 < く 終値 


と な り , 制御 変数 は デ ク リ メン ト (一 1 ) され ます 。 図 
3 一 45 は FOR 文 を アモ ンプ ブラ 言語 で 表し た も の で す 。 図 
3 一 46 が 生成 する オプ ジェ クト ・ コ ー ド で , 図 3 一 47 は を 
の 生成 才 順 を 流れ 図 で 胡 し た も の で す 。 

FOR 文 を コン パイ ル す る と き の 注意 は , 終値 を 変数 
同じ よう に メモ リト 上 に, し か も 一 つの FOR 文 ご と に 一 
つ ず っ つっ 記憶 する こと で す 。 だ た と えば ーー つの プロ グラ ム に 

142 


3-5 鑑 御 文 の フン ン \ ア と 


FOR 文 が 100 あ っ た と する と , 終値 を 2 バイ ト で 表す も 
の と し て , 2 バイ トメ X100 テ 200 バ イト の 終値 記憶 場所 を 
メモ リ 上 に 確保 し ます 。 わ ざわ ざ メ モリ 上 に 記憶 する の 
は , ルー プ 中 に 終値 の 計算 ち を 入 れ な いよ うに する た だ めで 


FOR 文 を アセ ンプ ラ 言 語 で 表す 


for 変数 fo 式 2 do 女 


※1 
| 式 | の オプ ジェ クト ・ コ ー ド | 
LD (変数 の アド レス ).HL | 
※1 
| 式 ? の オプ ジェ クト コー ド | に 
tp wmozrz)d 9 
odI:LD HL.( 終 値 の アド レス ) 
1 LD DE.( 変 数 の アド レス ) 
OR A 


SBC HL DE 
|_JP  A, edz 


変数 の 値 と 終値 を 比較 し て 
変数 の 値 の 方 が 大 きけ れ ば 
ジャ ンプ する 。 


| 廊 の オプ ジェ クト : コ ー ド |]<ーーーーー ーー 


LD HL,( 変 数 の アド レス ) 
INC HL 
LD (変数 の アド レス ),HL 
ーーJP odi 


変数 の 値 を イン クリ メン ト ( 十 | ) す る 。 


] 使え る 範囲 な ら JR 命令 を 使う 。 


ーーw od2 : 


変数 


for 


式 | 


downto 式 2 do 女 


※1 
式 | の オブ ジェ クト ・ コ ー ド 


LD 


(終値 の ア ドレ ス ). HL 


式 2 の オプ ジェ クト ・ コ ー ド 


LD 
: ILD 
LD 


ビー トー 


OR 
SBC 


(終値 の アド レス ), HL 
HL, (変数 の アド レス ) 
DE, (終値 の アド レス ) 
A 

HL, DE 

AA, qd2 


文 の オブ ジェ クト ・ コ ー ド 


] 


LD 


LD 
レーJP 


ek・・ レ 0 


HL, (変数 の アド レス ) 


DEC HL 


(変数 の アド レス ), HL 
qd | 


に 


式 2 の 結果 を 終値 を 記憶 す 
る 領域 へ スス ト ア する 。 


変数 の 値 と 終値 を 比較 し て 
変数 の 値 の 方 が 小さ けれ ば 
ジャ ンプ する 。 


変数 の 値 を デ ク リ イン ト (一 |!) する 。 


使え る 範囲 な ら JR 命令 を 使う 。 


※1 結果 は レジ スタ HL に 入 い る も の と する 。 
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す 。 繰り 返し の た びに 計算 し て いた の で は , 終値 の 計算 
時 間 X メ 繰り 返し 回 数 だ け 遅 く な っ て し まい ます 。 繰り 返 
し の 前 に 計算 し て メモ リ に 記憶 し て お け ば , 実行 時 間 を 
速く し , し か も 終値 が 入っ た 変数 の 値 を ルー プ 内 で 変え 
て も , 繰り 返し 回 数 に 影響 し ませ ん 。 た だ し , 終値 が 定 
数 な ら メ モリ 上 に 記憶 する より も 制御 変数 と 終値 を 示す 
定数 と を 直接 比較 する よう に し だ た ほう が よい で し ょ う 。 


FOR 文 の オプ ジェ クト ・ コ ー ド 


ソー ス ・ プ ログ ラム for 変数 := 式 | to 式 2 do 女 
また は , for 変数 := ニ 式 | downto 式 2 do 文 


オプ ジェ クト ・ コ ー ド 


式 | の オブ ジェ クト ・ コ ー ド 昌 式 の 結果 は レジ スタ HL に 入 い る 
LD (変数 の アド レス ), HL 


式 2 の オプ ジェ クト ・ コ ー ド | | 式 の 結果 は レジ スタ HL に 入 いる 
downfo の 場 


LD (終値 の アド レス ), HL 合 は この コー 
ド を 生成 


LD HL.( 終 値 の アド レス ) | | 2 の 瘍 合 」 LD HL. (変数 の アド レス ) al 
LD DE,( 変 数 の アド レス ) | | を 生成 | LD 、DE, (終値 の アド レス ) 


OR A 
SBC HL DE 
staqd:JP AA, OOOOH | 僚 の コー ド を 生成 し て お く 


マク < コー ド downto の 場 
文 の オブ ジェ クト ・ コ ー ド | ili 


LD HL.( 変 数 の アド レス ) 1o の 場合 は この コー ド を 生成 ド を 生成 


INC HL | DEC HL | 


LD (変数 の アド レス ), HL 
JP lpad ) 使え る 範囲 な ら JR 命令 に する 。 
jpad EQU $ 


ORG stad 二 | 仮に 生成 し て お いた ジャ ンプ 命令 の ア 
は 1 5 で 
DEFW jpod ドレ ス 部 に 正式 の ジャ ンプ 先 を 設定 


ORG jpgd 
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3-5 抽 御 文 の フン パイ と 


FOR 文 の コン バイ ル 


スト ア す る アド レ 


式 の 演算 結果 を スト | | ス は %1 で 求め た 
アド レス , つま り 
ア す る オプ ジェ クト ・ コ |-| 1DYwi の ァ ド レ 
ー ド を 生成 ス ), HL" と いう オ 
プ ジ ェ クト ・ コ ー ド 

を 生成 


終値 を 記憶 する 領域 | FOR 文 ご と に 領域 
求め た 変数 名 の アド を 確保 する 。 は 確保 する 。 重 復 


う させ て は な ら な い 。 
レス を 記憶 し て お く 


スト ア す る アド レ 
式 の 演算 結果 を スト ス は ※2 の アド レス , 


ア す る オプ ジェ クト ・ コ | . うま り DLM20 
ー ド アド レス ), HL" と 
ド を 生成 いう オブ ジェ クト ・ コ 

ー ド を 生成 
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現在 の コー ド ・ ロ ケー 
ショ ン ・ カ ウン タ の 値 
を 記憶 し て お く 


| Pqd・- コー ド ・ ロ ケー ショ ン ・ カ ウン タ 


変数 の 内 容 を レジ スタ HL 
へ , 終値 を レジ スタ DE へ 
ロー ド す る コー ド を 生成 


"LD HL,(※1 の アド レス )" 
・| "LD DE,(※2 の アド レス )" 
の オブ ジェ クト ・ コ ー ド を 生成 


終値 を レジ スタ HL 
へ , 変数 の 内 容 を レ 
ジス タ DE へ ヘ ロ ー ド す 
る コー ド を 生成 


“LD HL,(※2 の アド レス )" 
LD DE (※ 1 の アド レス )“ 
の オプ ジェ クト ・ ・ コ ー ド を 生成 
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レジ スタ HL と レジ ス 
タ DE を 比較 する よう 
な オプ ジェ クト ・ コ ー ド 
を 生成 


現在 の コー ド ・ ロ ケー 
ショ ン ・ カ ウン タ の 値 
を 記憶 し て お く 


2 の 補 数 と し て 

HL< ぐ DE なら ジャ ン 
プ す る よう な オプ ジェ ク 
ト ・ コ ー ド を 生成 


次 の トー クン を 読む 


| 
| 
上 
に 


OR A" 
“SBC HL.DE" 


の オプ ジェ クト ・ コ ー ド を 生成 


夫 


コー ド < ロ ゲー 
ショ ン ・ カ ウン タ 


"JP AA, 0000H" 


と いう オブ ジェ ク 
ト ・ コ ー ド を 生成 


注 ) この 流れ 図 を プロ グラ ム に し た 場合 , 


変数 の 内 容 を ロー ド 


し て くる よう な オプ 


ジェ クト ・ コ ー ド を 生成 


“*LD HL,(※!| の アド レ 
ス )" 

と いう オプ ジェ クト * コ 
ー ド を 生成 


オデ ジェ ク ド コ ヨード と 
し て 
"INC HL" を 生成 


ホブ ジェ クト < コー ド と 
し て 
"DEC HL" を 生成 


変数 へ スト ア す る よ 
うな オプ ジェ クト ・ コ ー 
ド を 生成 


ジャ ンプ 命令 を 生成 


仮に 生成 し て お いた 
※3 の ジャ ンプ 命令 の 
アド レス 部 に 正式 の ジ 
ャ ンプ 先 を 設定 する 
よう な オブ ジェ クト ・ コ 
ー ド を 生成 


FOR 文 の 
コン パイ ル は 終わ り 


NN 
1 


“LD (※ 1 の アド レス ), 


| HL" と いう オプ ジェ ク 


ト ・ コ ー ド を 生成 


“JP Ipad" また は 


| "JR Ipad" の オブ 


ジェ クト ・ コ ー ド を 生成 


jpad 一 コー ド ・ ロ ケー 
ショ ン ・ カ ウン タ 

コー ド ・ ロ ケー ショ ン ・ カ ウ 
ンタ ーsfod 十 | 
"DEFW jpad" と いう 
オプ ジェ クト ・ コ ー ド を 生成 
コー ド ・ ロ ケー ショ ン ・ カ ウ 


io 
1 グ ター jpqa 


再帰 的 な プロ グラ ム に な る 。 


3-5 御 文 の コン パイ と 


Pascal の FOR 文 に は あり ませ ん が , BASIC の FOR 
文 や FORTRAN の DO 文 に は 増分 の 指定 が あり ます 。 
Pascal で は ^to” と downto "が それ ぞ れ 増分 と し て 十 
1, 一 1 を 示し て いま す が , それ 以外 の 増分 は 指定 で きま 
せん 。BASIC の FOR 文 や FORTRAN の DO 文 は 自由 
な 増分 が 指定 どき ます 。 た と えば BASIC の FOR 文 ( と 
NEXT 文 ) の 構文 は , 図 3-48 の ① の よう に な り , 流れ 図 
で は ② の よう に な り ま す 。 ア セン ブラ 言語 で は 図 3-49 の 
よう に な り ま す 。 増分 も 考え た と きも コン パイ ル 法 は 基 
本 的 に は 同じ な の で , 図 3ー47 の 流れ 図 を 一 部 変更 すれ ば 
コン パイ ル で きま す 。 


FOR 文 (BASIC) 


(① FOR 文 (NEXT 文 を 含む ) の 構文 
(の Go) (srep) 
otT 44 っ 


② FOR 廊 (NEXT 文 を 含む ) の 流れ 図 
行 番号 


行 番号 
FOR 変数 = 式 | TO 式 2 STEP 式 3 
n 行 娘 の 文 ] 


行 番号 』 NEXT 変数 


注 1) fempI は 終値 を 記 
憶 し , femp2 は 増 
分 を 記憶 する 。 


注 2) 図 中 の SGN(e) 
の 関数 は BASIC 
の 組み 込み 関数 
SGN と 同じ 動作 

を する も の と する 。 
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FOR 文 を アセ ンプ ラ 言 語 で 表す 


FOR 変数 TO 式 2 STEP 式 3 


※1 
式 | の オプ ジェ クト ・ コ ー ド 


LD (変数 の アド レス ), HL 
※1 


式 2 の オブ ジェ クト ・ コ ー ド 


LD (終値 の アド レス ),HL 
※ 1 


式 3 の オブ ジェ クト ・ コ ー ド 


LD (増分 の アド レス ), HL 
ーーーーーwadi : ED HL, (変数 の アド レス ) 
LD DE, (終値 の アド レス ) 
OR  A 

HL, DE 

SGN 1 2 
B, L 

HL, (増分 の アド レス ) 
SGN 


NEXT 変数 


HL. (変数 の アド レス ) 

DE, (増分 の アド レス ) 

HL DE 

(変数 の アド レス ), HL 

cd | 合え る 勤 財 な ら JR 命令 を 使う 


終値 と 増分 の 計算 結果 は メモ リ 上 に 記憶 され る 。 そ れ に より , FOR 
文 ご と に この 領域 が 取ら れる 。 

終値 や 増分 が 定数 な ら メ モリ 上 に は 記憶 せ ず , 直接 計算 を 行う よう 
に する 。 


結果 は レジ スタ HL に 入 い る も の と する 。 


SGN は ラン タイ ム ・ ル ー チ ン で , レジ スタ HL の 符号 を 求め る (レジ 
スタ B は 不変 と する )。 

HL> 0 な ら ば HL 一 000IH (|!) 

HL= ニ 0 な ら ば HL 一 0000H 

HL く 0 な ら ば HL 一 OFFFFH (|) 
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3-5 劉 御 肪 の コン パイ と 


3-5-3 複合 文 

複合 文 は 。 一 つの 文 し か 書け な い 場 所 に 複数 の 文 を 書 
きだ たい とき , まとめ て て 一文 と する も の で す 。 たとえば, 
IF 文 の then や else の 後 ,。 あ る い は WHILE 文 や FOR 文 
の do の 後 な ど に 用 いら れ ま す 。 構文 は 図 3 二 50 の ①, 流 
れ 図 で は ② の ょ うに な り ま す 。 複合 文 は 特定 の オプ ジェ 
クト ・ コ ユー ド を 生成 し ませ ん 。 図 3 一 51 は 複合 文 の コン パ 
イル 手順 を 流れ 図 に し た も の で す 。 


複合 文 (Pqscgl ) 


(① 複合 文 の 構文 


(we ) まき に we ) 
(3) 複数 の 文 を 一 つの 女 と する 。 


② 複合 文 の 流れ 図 
begin 廊 |1: 廊 2:…・ 文 n end 


複合 文 の コン パイ ル 


文 1 


次 の トー クン を 読む 
| 条 1 


No 


Yas 
次 の トー クン を 読む 
コン パイ ル は 終わ り 


注 ) この 流れ 図 を プロ グラ ム に し た 場合 
再帰 的 な プロ グラ ム に な る 。 
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3-5-4 GOTO 文 


う - ら 5-5 ら 
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GOTO 文 は 指定 され た ラベ ル へ 実行 を 移す 文 で , 構文 
は 


ーーー ャ ( gofo ナー ラベ ル ーー 


ほな っ て いま す 。 コ ユン パイ ラ は GOTO 文 を 単純 な 無 条 件 
ジャ ンプ の 機械 語 に 変換 し ます 。 図 3 一 52 に GOTO 文 の 
ュ ン パイ ル 手 順 を 流れ 図 で 示し ます 。 


サフ ルー チン (手続 き ) の 呼び 出し 


す サブルーチン の 呼び 出し の 構文 は FORTRAN で は 


と な っ て いま す 。 

FORTRAN は CALL ” と いう トー クン を 使う た め , 
構文 解析 の と き ヾ CALL / が 見 つか れ ば サブ ルー チン の 
呼び 出し 処理 に 移 れ ます 。 し か し , Pascal の よう に 特定 の 
トー クン を 用 い ず 直 接 サ プルー チン 名 が 書か れる よう な 
場合 は 、 名 前 だ け で は 代入 文 の 左辺 な の か サブ ルー チン 
の 呼び 出し な の か が わか ら な い の で , 記号 表 を 検索 し て 
識別 し ます 。 ま た, Pascal は す サブ ルー チン を 呼び 出す 前 に 
宣言 を し な けれ ば な ら な いと いう 規則 が ある の で 記号 表 


3-5 銅 郷 丸 の コ ン ン \ ア と 


GOTO 娘 の コン バイ ル 


Yes 
次 の トー クン を 読む 


次 の トー クン を 読む 


ラベ ル の アド レス へ 


ジャ ンプ する よう な オ 大 ラベ ル の アド レス " と いう コー ド を 生成 する 。 
プ ジ ェ クト ・ コ ー ド を 生成 


次 の トー クン を 読む - 
注 ) | バス 方 式 と 2 パス 以上 の 方 式 の 


コン バイ ラ で は 多少 処理 が 異な る 。 
GOTO 壇 の 詳し く は “3 一 4 一 3" を 参照 。 
コン パイ ル は 終わ り 


で 識別 で きま す が , その よう な 規則 が な い 言 語 な ら 文 を 
頭 か ら 解 析 し て いっ て 代入 文 な の か サブ ルー チン の 呼び 
出し な の か を 識別 し な けれ ば な り ま せん (3-4-3 参 
照 )。 そ の 文 が サブ ルー チン の 呼び 出し だ と わか れ ば , 後 
は 関数 の 呼び 出し と 同じ 処理 で コン パイ ル す る こと が で 
きま す (106 ペー ジ 参 照 )。 

きる て , この 項 で は いく つか の 制御 文 の オプ ジェ クト ・ 
ュー ド の 生成 例 を 載せ まし た が , これ ら の 例 は 最適 化 を 
し て いま せん 。 制 御 文 の 最適 化 は た い へ ん 複雑 で , 他 の 
文 や 式 の 最適 化 , コー ド 生 成 な ど に も 関係 する た め , パ 
ツッコ ン 用 , 特に 8 ビッ ト CPU の コン パイ ラ で は 制御 文 
の 最適 化 を し て いな いも の が 多い よう で す 。 
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うー の チ プ ジェ ク ム ・ ブ ログ ラム の 
メダ モグ へ の 莉 り つげ 


ここ で は , コン パイ ラ が 生成 し た オブ ジェ クト ・ コ ー 
ド や 変数 , 配列 な ど を メモ リ ・ ア ドレ ス に どう 割り つけ 
る の か , その 方 法 に つい て 述べ て いき ます 。 


3-6-1 ロケ ーション ・ カ ウン タタ 

コン パイ ラ に は 必ず ロケ ーション ・ カ ウン タ (location 
counter) と いう も の が あり , これ が 生成 する オブ ジェ ク 
ト ・ プ ログ ラム の アド レス を 管理 し て いま す 。 ロ ケー シ 
ョ ン ・ カ ウン タ に は 相対 、 あ る い は 絶対 アド レス が 記憶 
され て いて , 生成 し た オブ ジェ クト ・ コ ー ド に 対し て ア 
ドレ ス を 割り つけ て いき ます 。 

コン パイ ラ に は , 基本 的 に 二 つ の ロケ ーション ・ カ ウ 
ンタ が 必要 で , 一 つ は コン パイ ル し 生成 され た 機械 語 の 
アド レス を , も う 一 つ は 変数 や 配列 な どの アド レス を 管 
理 す る も の で す 。 本書 で は , これ ら を それ ぞ れ コー ド ・ 
ロケ ーション ・ カ ウン タ ,。 デー タ ・ ロ ケー ショ ン ・ カ ウ 
ンタ と 呼ん で いま す 。 言語 や 出力 形式 に よっ て は 三 つ 以 
ト 上 の ロケ ーション ・ カ ウン タ を 持つ 場合 も あり ます 。 三 
つ 以 上 使う 場合 に つい て は 後述 する と し て , 基本 的 な 二 
つの ロケ ーション *・ カウ ンダ タ が コン パイ ラ 内 で どの よう 
に 使わ れ て いる の か 説明 し ます 。 

ロケ ーション ・ カ ウン タ に 記憶 する アド レス は 図 3 一 53 
の よう に , 出力 形式 に よっ て メモ リ 上 の 絶対 アド レス か, 
メモ リ を 意識 し な い 相対 アド レス か に な り ま す 。 ア セン 
プラ 言語 を 出力 する コン パイ ラ は 文字 列 の 操作 だ け で コ 
ン パ イル で きる た め , ロケ ーション ・ カ ウン タ を 持た な 
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ロケ ーション ・ カ ウン タ と オプ ジェ 
①⑪ 直接 機械 語 を 出力 する コン バイ ラ の 場合 


アド レス 
0000 


メモ リ 


コー ド ・ ロ ケー ショ ン ・ 
カウ ンタ 


デー タ ・ ロ ケー ショ ン ・| | 
カウ ンタ | 


② 再 配置 可能 な オプ ジェ クト ・ プ ログ ラム を 出力 する コン バイ 


相対 アド レス 
0000 


コー ド ・ ロ ケー ショ ン ・ 
カウ ンタ 


FFFF 
相対 アド レス 
0000 
デー タ ・ ロ ケー ショ ン ・ 
カウ ンタ 


FFFF 


-6 サフ ジェ クム ・ ブ ログ "ラム の メモ グ へ の り つの 


クト ・ プ ログ ラム 


コー ド ・ ロ ケー ショ ン ・ カ ウン タ 
や デー タ ・ ロ ケー ショ ン ・ カ ウン 
タ は , メモ リ 上 の 絶対 アド レ 
ス で 次 に 出力 する オブジェ クト ・ 
コー ド の アド レス や 変数 , 配列 
を 記憶 する た め の 領 域 の アド 
レス を 覚え て いる 。 

この 図 は メモ リ 上 に 出力 する 場 
合 を 想定 し た も の だ が , ファ 
イル へ 出力 する 場合 も 考え 方 
は 同じ 。 


機械 語 命令 を 出 
カカ する 領域 


変数 , 配列 を 記 
する た め の 領 域 


会 
戸 


ラ の 場 


コー ド ・ ロ ケー ショ ン ・ カ ウン タ 
や デー タ ・ ロ ケー ショ ン ・ カ ウン 
タ は , 先頭 を ゼロ と する よう な 
相対 アド レス で 次 に 出力 する 
オプ ジェ クト ・ コ ー ド の アド レス 
や 変数 , 配列 を 記憶 する た め 
の 領域 の アド レス を 覚え て い 
る 。 コ ン パ イラ は , 図 の よう な 
イメ ー ジ で オプ ジェ クト ・ ブ ログ 
ラム を 出力 する 。 


機械 語 命令 を 出 
カカ する 領域 


変数 , 配列 を 記憶 
する た め の 領 域 


略記 記 | 実際 に オプ ジェ クト ・ コ ー ド が 出力 され た 部 分 や 領域 が 取ら れ た 部 分 を 示す 。 


は 次 に オプ ジェ クト ・ コ ー ド を 出力 する アド レス や 領域 が 取ら れる アド レス を 示す 。 


[し ] は に れ か ら オ プ ジ ェ クト ・ コ ー ド が 出力 され る 部 分 や 領域 が 取ら れる 部 分 を 示す 。 


いこ と が あり ます 。 


コー ド ・ ロ ケー ショ ン ・ カ ウン タ は コー ド に アド レス 


を 割り つけ る た め に 使わ れ ま す 。 た と えば いま 生成 し 
た XX と いう 1 バイ ト の オプ ジェ クト ・ コ ー ド は , 現在 
の コー ド ・ ロ ケー ショ ン ・ カ ウン タ が 示す アド レス に 制 
りつ けら れ , メモ リ ま た は ファ イル に 出力 され ます 。 そ 
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の 後 コ ー ド ・ ロ ケー ショ ン ・ カ ウン タ は 一 つ イ ンク リ メ 
ント され ます 。 ま た , 一 時 的 に この カウ ンタ の アド レス 
を 変更 すれ ば 任意 の アド レス へ オブ ジェ クト ・ コ ー ド を 
出力 させ る こと も で きま す 。 3 一 5 で は この 方 法 で 未 確 定 
の ジャ ンプ 先 ア ドレ ス を 処理 し て いま す 。 

デー タ ・ ロ ケー ショ ン ・ カ ウン タ は デー タ ,。 つま り 変 
数 や 配列 の 領域 を 取る と き に 使わ れ ま す 。 デ ー タ に 初期 
値 が ある 場合 は , デー タ に アド レス が 割り つけ られ , 初 
期 値 も 出力 され ます 。 初 期 値 が な いと き は アド レス だ け 
が 割り つけ られ 出力 は し ませ ん 。 た と えば ぱ ば, 初期 値 * の 
変数 V 1 (n バ イト ) の 領域 に は 現在 の デー タ ・ ロ ケー 
ショ ン ・ カ ウン タ の アド レス が 割り つけ られ , 初期 値 x 
は その アド レス で メモ リ や ファ イル に 出力 され ます 。 そ 
し て デー タ ・ ロ ケー ショ ン ・ カ ウン タ は 変数 の 大 き さ (n 
バイ ト ) 分 イン クリ メン ト さ れ ま す 。 ま た , 初期 値 が 必 
要 な い 変 数 V 2 (m バ イト ) の と き は , アド レス が 割り 
つけ られ て か ら m バ イト 分 イン クリ メン ト さ れる だ け で 
す 。 

さて , 三 つ 目 以上 の ロケ ーション ・ カ ウン タ で す が , こ 
れ も 変 数 や 配列 を 管理 する た め に 持つ こと が 多い よう で 
す 。 

た と えば , FORTRAN の 変数 や 配列 に は 局所 的 な も の 
と , プロ グラ ム 中 で 共通 に 使わ れる コモ ン ・ プ ブロ ッ ク 内 
の も の と が あり ます 。 こ の よう な 場合 , これ ら を 同列 に 
扱う こと は で き な い の で デー タ ・ ロ ケー ショ ン ・ カ ウン 
タ 以 外 に コモ ン ・ プ ロッ ク 用 の ロケ ーション ・ カ ウン タ 
が 必要 に な り ま す 。 

また , 変数 , 配列 に 対し て 固定 アド レス , つま り 静 的 
な アド レス を 割り つけ る だ け で な く , 言語 に よっ て は 局 
所 的 な 変数 , 配列 の 全部 また は 一 部 を スタ ッ ク 上 に 動 的 
に 取る こと が あり ます 。 そ の と き に も 静 的 , 動 的 。 二 つ 
の デー タ ・ ロ ケー ショ ン ・ カ ウン タ が 必要 に な り ま す 。 


3-6 オフ ジェ ク た プログ" ラム の メモ グ へ の 播 り つ け 


3-6-2 宣言 文 と メモ リ の 割り つけ 


ここ で は , 宮 言 文 に よっ て 宣言 され た 変数 や 配列 に 対 
する アド レス の 割り つけ に つい て 説明 し ます 。 


〔 1 〕) 静 的 な アド レス の 割り つけ 

BASIC や FORTRAN は , 変数 や 配列 に 対し て 固定 さ 
れ た アド レス , つま り 静 的 な アド レス を 割り つけ ます 。 
また , 静 的 な アド レス が 割り つけ られ た 変数 や 配列 に は , 
コン パイ ル 時 に 初期 値 の 設定 が で きま す 。 

た と えば FORTRAN で 


REAL A,B(2),C 
INTEGER W, X(2, 3), Y, Z 
DATA C, W, Y ノ 1.25,。 0, 12 ノ 


と いう 文 が あっ て 実数 4 バイ ト , 整数 2 バイト の 領域 が 
取ら れる な ら ば , コンパ イラ は メモ リ 上 に 図 3 二 54 の よう 
に 各 変 数 、 配列 に アド レス を 割り つけ , 初期 値 を 設定 し 
ます 。 

静 的 な アド レス が 割り つけ られ た 変数 や 配列 が 式 の 中 
で 使わ れる と , その 要素 の ロー ド , スト ア は 絶対 アド レ 
ス に 対し て 行わ れ ま す (これ まで の 説明 で 使っ て きた 変 
数 , 配列 要素 の ロー ド , スト ア は すべ て この 方 法 )。 


【 2 〕 動 的 な アド レス の 割り つけ 

Pascal の よう に 再帰 的 な プロ グラ ム が 許さ れる 言語 で 

は , 局所 的 な 変数 、 配列 を 実行 時 に スタ ッ ク 上 に 動 的 に 
取る た め , サブ ルー チン や 関数 ご と に , 局所 的 変数 ( 配 

列 ) の アド レス が 異な っ て きま す 。 そこで, コン パイ ル 
時 に は サブ ルー チン や 関数 ご と に , 局所 的 変数 (配列 ) 
へ の ロケ ーション ・ カ ウン タ を 用 意 し て 相対 的 な アド レ 
ス を 割り つけ る よう に し ます 。 こ の 場合 は コン パイ ル 時 
の 初期 値 設定 が で きま せん 。 ど うし て も 設定 し た いと き 
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静 的 な アド レス の 割り 付け (FORTRAN) 


ソー ス ・ プ ログ ラム 
REAL A, B(2), C 
INTEGER W, X(2,.3),Y, Z 
DATA C_ W。 \ グ 1.25,。 0。12 グ 


メモ リ (相対 アド レス ) 


IO I2 I4 1I6 I8 … 
未 使用 


B(I) B(2) C 0 0 | 0 | デー タ ・ ロ ケー ショ ン ・ カ ウン タ 


“REAL A, B(2), C" の 宣言 に より , 実数 型 の 変数 A,C 
と 配列 B が メモ リ に 取ら れる 。 
E IO I2 I4 1I6 !8 


席 CE 0 2 交 … 


回 右 否 較 則 較 較 回 回 國民 


| 議 | | 1 ] 1 人 才 
B(I) B(2) (9 W X(I1) ! X(L2) ! X(1.3) Y 
X(2,1) 、X(2.2) 、X(2.3) 


"INTECER W, X(2.3), Y, Z" の 宣言 に より , 整数 弄 
の 変数 W, Y。 Z と 配列 X が メモ リ に 取ら れる 。 


0 4 1I2 I4 HIH6 |H8 IA IC HE 20 22 24 … 
還 還 EPEEEEEIEEE | 未 人 用 
1 1 1 1 { 1 1 


1 1 | 
B(2) C W X(I1) ! X(1.2) ! X(1.3) 
X(2.1) 。X(22) 、X(2.3) 


“DATA て ,。 W,。 Y ン 1.25。 0, 12" に より , 変数 C, W, 
Y に 初期 値 が 設定 され る 。 
注 ) 図 中 の ? は 内 容 が 不定 で ある こと を 示す 。 


は 初期 値 を スト ア す る よう な オプ ジェ クト ・ コ ー ド ( 命 


令 ) を 生成 する し か あり ませ ん 。 
動 的 な アド レス が 割り つけ られ た 変数 や 配列 は , 静 的 


な アド レス が 割り つけ られ た と き と は ちがい , コン パイ 
ル 終 了 時 に は メモ リ 上 の 大 きき さがわ かり ませ ん 。 

実行 中 局所 的 変数 を どの よう に スタ ッ ク 上 に 取る か 
を 図 3 一 55, 図 3 一 56 に 示し ます 。 こ の 図 は Pascal の よう 
な プ ブロック 構造 の 言語 を 再帰 的 に 実行 する と き を 考え て 
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3-6 オフ ジェ クム ・ ブ ログ ラム の メモ グ へ の 手 め つが 


実行 中 の 1 ブロ ッ ク 内 の 局所 的 な 変数 や 配列 の 様子 


再帰 的 に 呼び 出さ れる サブ ルー 
チン (手続 き ) や 関数 は , ルー チン 
の 始め で 右 図 の よう に スタ ッ ク 上 
に 局所 的 な 変数 , 配列 の 領域 を 取 
る 。 こ の 領域 は 実行 が 終わ り , 元 


の ルー チン に 戻る と き 解 放す る 。 

右 図 の 中 の B P と は ベー ス ・ ポ 
イン タ の こと で , この ポイ ンタ が 示 
す 絶対 アド レス を 基準 に 局所 的 な 
変数 や 配列 の ロー ド と スト ア が 人 行 
われ る 。B P に は CP U の イン 
デック ス ・ レ ジス タ な ど が 使わ れる 。 
S P は スタ ッ ク ・ ポ イン タ の こと 。 

スタ ッ ク 上 に 取ら れる プ ブロック 
ー つ 分 の デー タ の 内 容 は 次 の と お 
り 。 


@BP の 元 の 値 
元 の ルー チン に 戻っ た と き に , 
-BP の 値 も 元 の 値 に 戻さ な けれ ば な 
ら な い の て で 記憶 し て お く 。 


@ プ ロッ ク の レベ ル 番 号 


以前 に 名 前 に は 有効 範囲 が ある 

と 説明 し た が , この レベ ル 番 号 に 
よっ て 名 前 (この 場合 変数 や 配列 
の 有効 範囲 ) を 決め る 。 


低 ア ドレ ス 


⑱ レ ベル 番号 が 一 つの 下 の プ ロッ ク へ の ポインタ 


BP が 示す ブロ ッ ク 外 の 変数 , 配 
列 に 対し て ロー ド , スト ア を 行う 
き , この ポイ ンタ を た どっ て 行 
き 目 的 の 変数 , 配列 を アク セス す 
る 。 


いま す 。 こ の 場合 , 単に スタ ッ ク 上 に 領域 を 取る だ け で 
な く 〈《, どの よう に 実行 され て きた か の 履歴 も 保存 し な け 
れ ば な り ま せん 。 それは, ブロ ッ ク 構 造 で は 名 前 に 有効 
範囲 が ある か ら で す 。 た と えば , 図 3-56 で プ ブロック B の 
② を 実行 し て いる と き の ブ ロッ ク A の 変数 a の 値 と , ブ 
ロッ ク B の ⑥ を 実行 し て いる と き の ブ ロッ ク A の 変数 a 
の 値 は まほ まっ た 〈《 異 な り ま す 。 こ の よう な 場合 で も , プロ 


使用 中 の 領域 


り リタ ーシュ アド レス 
( CPU が 自動 的 に 入れ る ) 


BP の 元 の 値 
プロ ッ ク の レベ ル 番 号 


レベ ル 番 号 が 一 つ 下 の 
プ ブロッ ク へ の ポイ ンタ 


局所 的 な 変数 や 配列 が 
記憶 され る 領域 , コン 
パイ ラ は BP が 示す 絶 
対 ア ドレ ス を ゼロ と す 
る よう な 相対 アド レス 
で 各 変 数 配列 に アド 
レス を 割り 付け て いる 。 
相対 アド レス が 負 に な 
っ て いる こと に 注意 。 


未 使用 の 領域 
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ブロ ッ ク 構 造 の プロ グラ ム の 再帰 的 な 実行 と スタ ッ ク 上 の デー タ 


A (レベ ル |) 
B (レベ ル 2 ) 


C (レベ ル 3 ) 


ーー CALL を 示す 。 
RETURN を 示す 。 


⑩-⑯ 実行 する 順序 を 示す 。 
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プ ブロック A の 局所 
的 な 変数 や 配列 


ブロ ッ ク B の 局所 
的 な 変数 や 配列 


ブロック A の 局所 
的 な 変数 や 配列 


アド レス 
5 


ブロ ッ ク B の 局所 


的 な 変数 や 配列 


アド レス 
昌一 ] 


プ ブロッ ク C の 局所 
的 な 変数 や 配列 


ーーー タ 
RETURN 


⑧ を 実行 中 の スタ ッ ク - こ ALL、 る を 実行 中 の スタ ッ ク 


ブロッ ク A の 局所 
的 な 変数 や 配列 


プ ブロック B の 局所 
的 な 変数 や 配列 


ブロッ ク A の 局所 
的 な 変数 や 配列 


ブロ ッ ク B の 局所 
的 な 変数 や 配列 


プ ブロッ ク C の 局所 
的 な 変数 や 配列 


ブロ ッ ク B の 局所 
的 な 変数 や 配列 


3-6 オフ ジェ クル た ・ プ ログ "ラム の メモ へ の 攻め つ が 


ッ ク 外 の 変数 や 配列 を 正しく アク セス する た め に , スタ 
ッ ク 上 に 一 つ 下 の ブロ ッ ク へ の ポイ ンタ が ある の で す 。 
この ポイ ンタ は , 局所 的 な 変数 , 配列 が スタ ッ ク に 取ら 
れる と き に 一 つ 下 の レベ ル の ブロ ッ ク を 探し て 示す よう 

こ 設定 し ます 。 

動 的 な アド レス が 割り つけ られ た 変数 や 配列 の アク セ 
ス は , 間接 アド レス に よる し か あり ませ ん 。 間接 ア ドレ 
ス の 扱い が 不得 意 な CPU で は 既存 の 命令 の 組み 合わ せ 
で アク セス し な けれ ば な ら ず , オプ ジェ クト ・ コ ー ド の 
増大 を 招き ます 。 こ ん な と き は , 間接 アド レス で の アク 
セス を 一 つの サブ ルー チン と し て ラン タイ ム ・ ル ー チ ン 
を つく り ま す 。 

変数 や 配列 が 動 的 な アド レス で 割り つけ られ た プロ グ 
ラム は , 静 的 に 割り つけ られ た プロ グラ ム に 比べ , 実行 
時 間 が 遅く な り ま す 。 で すか ら , 全域 的 な (レベ ル 0 プ ブ 
ロッ ク の ) 変数 や 配列 は 静 的 な アド レス を 割り つけ る よ 
うに し て , 少し で も 実行 時 間 を 速く し ます 。 
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この 項 で は サブ ルー チン や 関数 へ の 引数 の 渡し か た や 
渡る れ た 引数 の 処理 , また , 式 の 中 に 使わ れ た 引数 の 扱 
いか た だ た, お よび サブ ルー チン や 関数 の ユン パイ ル 手 順に 
つい て 説明 し ます 。 


3-7-1 引数 の 渡し か た と 引数 の 処理 


引数 の 渡し か た に は , 引数 の 値 を 記憶 し た アド レス を 
渡す 場合 と , 値 ど け を 渡す 場合 の 二 通 り が あり ます 。 言 
語 に よっ て は この どちら か し か 扱え を な いも の や , サ ブル 
ー チ ン , 関数 の 宜 言 の た とき に 指定 でき る も の な ど が あり 
ます 。 


[1 〕 引数 と し て アド レス が 渡さ れる 場合 
引数 と し て アド レス を 渡す 言語 の 一 つ に FORTRAN 
が あり ます 。 サブルーチン の 呼び 出し 側 に 


CALL SUB 1 (A,l, 36, K 十 5) 


と いう 文 が あっ だ た と する と, サブ ルー チン SUB1 に は 
変数 A と 1, 定数 36, そし て 式 KK 十 5 の 演算 結果 の 記憶 
場所 の アド レス を 渡す こと に な り ま す 。 そ の アド レス は 
コン パイ ル 時 に , 定数 し し て メモ リ に 記憶 し , サブ ルー 
チン を 呼び 出す と き に は , その メモ リ の アド レス を 渡す 
よう に し ます 。 そし て 呼び 出さ れる サブ ルー チン の 側 で 
は , た と えば SUB1 が 


SUBROUTINE SUB 1 (B, L, M, N) 


) 
END 
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で あっ た ら , まず 渡る れ た 実 引数 の アド レス を 仮 引数 B, 
L, M, N に コピ ー し ます 。 仮 引数 は 変数 を と を の も の の 値 
で な く ア ドレ ス を 記憶 し て いる た め , 仮 引数 が 式 の 中 で 
使わ れ た と き は 間接 アド レス に よっ て アク セス し な けれ 
ば な り ま せん ( 図 3 -57)。 図 3 -58 が 引数 と し て 配列 全体 
を 渡す 場合 , 図 3 -59 が サブ ルー チン 内 で 他 の サブ ルー チ 
ン を 呼ぶ 場合 に 仮 引数 を 実 引数 と し て 渡す 場合 で す 。 

ここ で は FORTRAN を 例 と し て いる の で , 再帰 的 な 
プロ グラ ム を つく ら な いこ と を 前 提 に し て いま す 。 なぜ 
再帰 的 な ゲロ グラ ム が だ め な の か と いう と , 実 引数 の ア 
ドレ ス , お よび 式 の 演算 結果 や 実数 な ど を 記憶 する ワー 
ク ・ エ リア を コン パイ ル 時 に 静 的 に (メモ リ 上 に ) 設定 
し て いる か ら で す 。 再 帰 的 な 呼び 出し を 許す よう な が 言語 
で は , これ ら 6 を 実行 時 に スタ ッ ク に 設定 する よう に し て 
いま す 。 を そして, サブ ルー チン 側 で も 仮 引数 の 領域 を ス 
タッ ク に 取る よう に し ます 。 こ の よう に すべ て の 領域 を 
スタ ッ ク に 取れ ば 再帰 的 な 呼び 出し が 可能 に な り ま す 。 
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引数 と し て アド レス を 渡す 場合 (FORTRAN) 


ソー ス ・ プ ロ グラ ム オプ ジェ クト ・ コ ー ド 
メイ ン ・ ル レー チン 
REAL A LD HL36 ) 第 3 引数 の 定数 36 を ワー ク ・ エ リ 


INTEGER IL K LD  (@000I),HL / ア に 設定 
LD HL(e@K) | 


CALL SUB 1 (A,1.36,K 十 5) 8 Bi Be 


LD (@0002),HL ) 
STOP LD HLop0OI ) 実 引数 の アド レス を 記憶 し て いる 領 


END CALL SUB | 域 の 先頭 アド レス を 設定 


第 4 引数 の 式 K 十 5 を 計算 し ワー 
ク ・ エ リア に 設定 


サ プ ブル ー チ ン SUB | 
SUBROUTINE SUB 」(B,L,A,N) >「SUB | : 
REAL  B LD DE,@B 


INTEGER L, A, N,| 実 引数 の アド レス を コピ ー す る 。 


LD HL5 RB 
LD (@D),HL 


LD DE.(@!) 


LD HLL(@L) _ 
LD (HL),E トー 


RETURN INC HL 
END LD (HL),D 
{ RET 注 1) 実数 型 は 4 バイ ト , 整数 型 は 


する 。 


2 バイ ト と する 。 


サ プ ブル ー チ ン へ 渡す 実 引数 の 領域 ( 静 和 的 に 取ら れる ) 
実 引数 の アド レス を 記憶 し て いる 。 
第 1 引数 第 2 引数 第 3 引数 第 4 引数 


ap00| 一 | 


r@A (変数 A) 


re1! (変数 


て @ 0001 (ワー ク ・ エ リア 1) 


て @ 0002 (ワー ク ・ エ リア 2) 


軸 


仮 引数 の 領域 ( 静 的 に 取ら れる ) 
実 引 数 の アド レス が 入る 。 


@ B (変数 B) @L (変数 し ) @A( 変 数 AA) @N( 変 数 N) 仮 引数 の 領域 に は 実 引数 の アド レス が 入 
る た め , 変数 の 型 に 関係 な く 各 変 数 に は 
| ] 同じ 大 き さ の 領域 が 割り 付け られ る 。 


注 2) アド レス を 記憶 する 場合 は 2 バイ ト 必要 と な る 。 
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引数 と し て アド レス を 渡す , 配列 の 場合 (FORTRAN) 
ソー ス ・ プ ログ ラム オプ ジェ クト ・ コ ー ド 


メイ ン ・ ル ー チ ン 
INTEGER I(10),J(2,5),K,IP 人 LD HL(@IP) 
DEC HL 
ADD HL,HL 第 2 引数 の 配列 の 要素 の アド レス 
CALL SUB 2 (K,I(IP),」) ID DEel 0 
) ADD HLLDE 


STOP LD (qp002 十 2).HL 
LD HLop002 ) 天 引 数 の アド レス を 記憶 し て いる 領 
Pe CALL SUB2 域 の 先頭 アド レス を 設定 


サ プ ル ー チ ン SUB 2 
SUBROUTINE SUB 2(L ALN)ー (SUB2 : 
INTEGER LA,N(2,5) LD DE,@L 
LD BC. 3*※2 実 引数 の アド レス を コピ ー す る 。 
LDIR 


N(2,3)=A LD HL,(2 一 !) 十 (3 一 |) *2 
( DE 
RETURN ADD 


PUSH 
END LD 
仮 引数 を ロー ド する 
LD 
POP 
LD 
INC | 配列 N の 要素 に スト ア す る 。 
注 1) 整数 型 は 2 バイ ト と する 。 LD 


サ プ ブルー チン へ 渡す 実 引数 の 領域 
実 引数 の アド レス を 記憶 し て いる 。 
第 1 引数 第 2 引数 第 3 引数 
ap002 一 
@K (変数 K ) 


」 @ 」 (配列 』) 
jr) | j(zD) [| | J.5) | (2.5) | 


注 2) ? は コン バイ ル 時 に は な に も 設定 され な い 。 


仮 引数 の 領域 
実 引数 の アド レス が 入る 。 
@L (変数 し)) @A( 変 数 W) @N( 配 列 N) 
| Y | % 。 ' \ 仮 引数 の 領域 に は 実 引数 の アド レス が 入る た め 窒 


| 数 の 型 , 配列 の 大 き さ に 関係 な く 同じ 大 き さ の 領 
域 が 割り 付け られ る 。 


注 3 き ) アド レス を 記憶 する 場合 2 バイ ト 必 要 。 


引数 と し て アド レス を 渡す , 仮 引数 の 場合 (FORTRAN) 


サブ ルー チン SUB 3 
SUBROUTINE SUB 3(A. B, て ) 
REAL B 
INTEGER A,C 
) 

CALL SUB 4 (A 十 2.B) 
) 

RETURN 

END 


注 1) 実数 型 は 4 バイ ト , 整数 型 は 2 バイ ト と する 。 


サブ プルー チン SUB 3 の 仮 引数 の 領域 


HL.(@A) 

E, (HL) 

HL 

D, (HL) 

HL, 2 

HL, DE 

(@3001), HL 

HL,(@B) 

(qp003 十 2), HL 

HL, ap003 
CALL SUB4 


実 引数 の アド レス を 記憶 し て いる 。 


gk (変数 A) mi (変数 B) 


(変数 C) 


) 


EE 


実 引数 (整数 ) 


実 引数 (整数 ) 


実 引数 (実数 ) 


第 1 引数 の 式 A 十 2 を 計算 ( ワ 
ー ク ・ エ リア に 設定 ) 


第 2 引数 の 仮 引数 B が 記憶 し て 
いる アド レス を 設定 


サ プ ブル ー チ ン SUB 4 へ 渡す 実 引数 の 領域 
実 引数 の アド レス を 記憶 し て いる 。 


第 1 引数 第 2 引数 
| #* 


@ 300| (ワー ク ・ エ リア ) 


注 2) ? は コン パイ ラ 時 に は な に も 設定 され な い 。 
注 2) アド レス を 記憶 する 場合 2 バイ ト 必 要 。 
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【 2 〕 引数 と し て 値 が 渡さ れる 場合 

引数 と し て 値 を 渡す 言語 に は Pascal が あり ます 。 
Pascal で は アド レス を 渡す こと も 可能 ( 仮 引数 に “var" 

宣言 する ) で す が , ここ で は 値 が どの よう に サブ ルー 
チン に 渡る れる の か を 見 て み ま す 。 

Pascal で は 再帰 的 な ゲ プログ ラム が 許さ れ て いる の で , 
局所 的 変数 や 配列 は すべ て スタ ッ ク 上 に 取ら れ て いま す 。 
実 引数 も 例外 で は な く ス タッ ク 上 に 設定 し サブ プルー チン 
に 渡し ます 。 だ た と えば 


proc 1 (aq, b, 36,d 十 5) | 


と いう 文 で 変数 a が 実数 (4 バイ ト 長 ), 変数 b と d が 整 
数 (2 バイ ト 長 ) だ っ た と し ます と , d 十 5 の 演算 結果 , 
定 数 36, 変数 b の 値 , 変数 4 の 値 の 順に スタ ッ ク へ 
PUSH し ます 。 図 3-60 の ① が 四 つ の 実 引数 の 値 を 
PUSH し 終わ っ た スタ ッ ク の 状態 で す 。 を し て 呼び 出る 
れ た サブ ルー チン 側 で は , 渡る され た 実 引数 の 各 値 を 局所 
的 な 変数 と 同じ よう に 扱い ます 。 つ まり , 仮 引数 へ は べ 
ー ス ・ ポ イン タ に よる 間接 アド レス で アク セス する わけ 
で す 。 図 3 -60 の ② が サブ ルー チン 実行 中 の スタ ッ ク の 状 
態 で す 。 

こん ど は 値 の 一 つ 一 つ で は な く , 配列 全体 の 値 を 渡す 
場合 で す 。 基 本 的 に は 変数 値 を も スタッ ク に 入れ る の と 同 
じ こ と で , 配列 の 全 要 素 を スタ ッ ク へ 入れ ます 。 図 3 -61 
は 配列 全体 の 値 を 渡す 場合 の 例 で す 。 

引数 の 値 を 渡す 言語 の コン パイ ラ で は , サブ ルー チン 
か ら 呼 び 出 し 側 に 実行 結果 を 渡す 目的 で 仮 引数 を 使う こ 
と が で き な い の で , この よ うな 値 は 全域 的 な 変数 や 配列 
で 渡す よう に し ます 。 
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引数 と し て 値 を 渡す 場合 (アド レス を 渡す 機能 が な い サ プ セ ッ ト の Pqscgl ) 
① 呼び 出し 例 ② スタ ッ ク の 状態 


ソー ス ・ プ ログ ラム オプ ジェ クト ・ コ ー ド 
実数 (4 バイ ト ) 整数 (2 バイ ト ) 
roc 1 (o ば は HB 9 IA おり 
Lp 結果 (整数 ) 
に = > asia 
定数 36 
(整数 ) 


。| 変数 b の 値 
( 避 数 ) 


変数 の 値 
(実数 ) 


! 


スタ ッ ク 上 に 取っ た , 低 ア ドレ ス 
実 引数 用 の 領域 を 
解放 する 。 


⑫ 手続 き 側 


ソー ス ・ プ ログ ラム 
procedure procl( wirealix, y,z:infeger) : proc 1 : 
var P,q,「,sS,T:infeger 一 1 LD 。A, 3 。) レベ ル 番 号 は 3 

・ 局所 的 な 変数 は 1 の 
し ID HLIOj 五 つ , 10 バ イト RG 
CALL LALLOC) 


HL, 7 スタ ッ ク 上 に 指定 の 大 き 

さ の 領域 を 取り , プロ ッ 

(IX 一 5),L ク 外 アク セス の た め の 情 

(IXー4) | 報 を 作る ラン タイ ム ・ ル 
ー チ ン 


L, (IXー5) 
H. (IXー4) 
(IX 填 15).L 
(IX 十 I6),H 


る ラン タイ ム ・ ル ー チ ン 
RET 


1 LFREE ) スタ ッ ク 上 に 取っ た 領域 を 解放 す 


実行 時 の スタ ッ ク の 状態 


ii 


仮 引数 z (d 十 5 の 値 ) 
仮 引数 y( 定 数 36) 
仮 引数 x (変数 b の 値 ) 


仮 引数 w (変数 g の 値 ) 


リタ ー ン ・ ア ドレ ス 


元 の レジ スタ IX の 内 容 
現 プ ブロ ッ ク の レベ ル 番 号 
ー つ レベ ル が 下 の ブ ロッ ク へ の ポイ ンタ 


3-Z サブ ルー チン と 答 数 


呼び 出し 側 で 設定 し た 実 引数 の 値 


CALL 命令 に よっ て CPU が 自動 的 
に 入れ た リタ ー ン ・ ア ドレ ス 


ラン タイ ム ・ ル ー チ ン LALLOC で 取ら 
れ た 領域 。 ラン タイ ム ・ ル ー チ ン LFREE 
を 実行 する と この 領域 は 解放 され る 。 


注 ) イン デック ス ・ レ ジス タ IX を 
ベー ス ・ ポ イン タ に 使っ て い 
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引数 と し て 値 を 渡す , 配列 の 場合 ( アド レス を 渡す 機能 が な い サ プ セ ッ ト の Pascgl ) 


配列 の 大 き さ は 次 の よう に 型 定義 きれ て いる も の と する 。 


fype qrsiz 三 orray【I..10] of integer : 


人 @ 呼 び 出し 側 念 手続 き proc 2 側 
変数 , 配列 の 宣言 var b: qrsiz : 手続 き 宣言 procedure proc2 


q,c: infeger i (xi meger: jy: grsiz : は 補 infeger ): 
手続 き proc 2 の 呼び 出し 


proc 2 (q, 回 届 ペー と ヤー 


var vV,w :infeger : 
ーー に 


ss 


! 
1 
1 
1 
1 
1 
I 
1 

+ 
! 
1 
1 
1 
1 
1 
! 

』 


b (10) の 値 1 仮 引 数 y〔10) 
b (9 ) の 値 2 仮 引数 y(9 ) 
b〔8 ) の 値 | 仮 引数 y(8) 

b (7 ) の 値 仮 引 数 y〔 7 
b〔6〕 の 値 || 直列 b 仮 引 数 y〔6 〕 


] b〔5) の 値 | 20 バ イト 仮 引 数 y( 5 〕 


ーーーーーーーーーーーーーーーーー ヒ ーーーー 一 2 


4 
デニー. ラー こら ーー デュ ーー ゴ 二 っ ニニ ニー= 


7 
b 〔 4 〕 の 値 仮 引 数 y〔 4 〕 


b 〔 3 〕 の 値 仮 引 数 y〔 3 〕 
b [2 〕 の 値 仮 引 数 y〔 2 


b〔 |] の 値 仮 引数 y〔 1 〕 


数 e の 値 仮 引数 x 


ニニ こら ーー だ こと だ らら 


ニン 


リタ ー ン ・ ア ドレ ス 
元 の レジ スタ IX 
の 内 容 


未 使用 


現 ブ ロッ ク の 
レベ ル 番 号 


ー つ レベ ル が 下 の 
プ ブロッ ク の ポイ ンタ 


注 ) 整数 は 2 バイ ト 
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[ 3 ) サブ ルー チン や 関数 の 宣言 の と き , 渡す 内 容 を 指 
定 で きる 場合 

本 来 , Pascal は 引数 と し て 値 , ア ドレ ス の 両方 を 扱う 
こと が で きま す 。 ま ず 呼 び 出 し 側 は , 基本 的 に は 【〔1] 
で 説明 し た 方 法 で 実 引数 の アド レス を サブ ルー チン へ 渡 
し ます 。 呼ば れる サブ ルー チン 側 で は , 実 引 数 の 値 が ほ 
し い の な ら 渡 きれ た アド レス に ある 値 を 仮 引数 へ 転送 し , 
アド レス が ほし い の な ら 渡 る れ た アド レス を その まま コ 
ビー し ます 。 サ プ ブルー チン 内 で は , 仮 引 数 に 値 が 渡る れ 
て いる な ら 局 所 的 な 変数 , 配列 と 同じ よう に アク セス し , 
アド レス が 渡る れ て いる な ら そ の アド レス か ら 間 接 的 に 
アク セス し ます 。 

Pascal で は 再帰 的 な 呼び 出し を 許す た め , この よう な 
操作 は すべ て スタ ッ ク 上 で 行い ます 。 図 3 -62 は スタ ッ ク 
へ の 引数 の 設定 の し か た , 図 3 -63 は この ょ うな 引数 の 渡 
し か だ を する オプ ジェ クト ・ コ ー ド で す 。 

関数 の 引数 に つい て も まっ た 同様 で す 。 た だ 関数 は 
式 の 中 で 呼ば れる た め , 関数 実行 後に 値 を 戻 き な けれ ば 
な ら 6 ず , その た め の 処 理 が 必要 に な り ま す 。 これ は 引数 
に は 関係 な に ので す が , 局所 的 な 変数 や 配列 を 取る 処理 , 
呼ば れ た ルー チン へ 戻る 処理 な ど に 関係 し て きま す 。 

最後 に 実 引数 と 仮 引 数 の 個数 の チェ ッ ク で す 。 引 数 の 個 
数 の チェ ッ ク 方 法 に は 二 つ あ り , 一 つ は コン パイ ル 中 に 
チェ ッ ク す る 4 方法 。 も う 一 つ は チェ ッ ク の ため の オォ プ ブ ジ 
ェクト ・ コ ユー ド を 生成 し 実行 中 に チェ ッ ク す る 方 法 で す 。 
実行 速度 し と オプ ジェ クト ・ コ ー ド の 大 きき る の 点 か ら 6, で 
きれ ば 実行 中 の チェ ッ ク は 避け た 方 が よい で し ょ う 。 メ パパ 
ツッコ ユン 用 の コン パイ ラ で は 引数 の 個数 を チェ ッ ク し な い 
も の が 多い よう で す が , や は りこ の 処理 は 必要 だ と 思い 
ます 。・ 
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引数 と し て アド レス , 値 の 両方 が 渡せ る 場合 (標準 Pascql ) 


@ 呼 び 出し 側 (手続 き Proc1) 
手続 き 宣言 procedure proc|(e:integer:var f:real) : 


変数 , 配列 の 宣言 var q:array【I..4] of integer : 
b: array [1..3] of integer : 
c,d: integer : 


生き PTC る の proc2(ob.c 填 2.d.e*3.1) 


式 c 十 2 の 演算 結果 


) 整数 2 バイ ト 


式 e*3 の 演算 結果 | ) 整数 2 バイ ト 
3 スタ ッ ク 上 に 
2 折 仮 引 数 f の 内 容 の コピ ー は ---ー 
e *3 の 結果 の アド レス ! 
手続 き proc 2 へ 突 数 』 の アド H 
3 d の アド レス H 
渡す 実 引数 の 
アド レス て 十 2 の 結果 の アド レス 1 
5 ! 仮 引数 の 記憶 領域 #! 
配列 b の アド レス ! (スタ ッ ク 上 に ある ) 

i 

配列 q の アド レス し --{| 仮 引数 f (アド レス ) が 0 


注 ) 介 整 数 は 2 バイ ト , 実数  SP 
は 4 バイ ト 仮 引 数 e の 値 

他 イ ン デ ックス ・ レ ジス タ 

IX を ベー ス ・ ポ イン タ 


) 半数 
2 バイ ト 


と し て 使用 し て いる 。 
未 使用 ※2 
半 8 変数 , 配列 の 記憶 領域 
補 ) Fr | 実行 時 の スタ ッ ク (スタ ッ ク 上 に ある ) 
† 高 ア ドレ ス 
配列 qa 
仮 引数 e,f 8 バイ ト 
ブロ ッ ク 外 アク セ 
ス の 情報 
) 3 
変数 , 配列 
o, b, c, d 
配列 b 
6 バイ ト 
実 引数 の アド レス 
と ワー ク ・ エ リア 
SP… 
! 低 ア ドレ ス 
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3-Z サフ ッ ルーチン? 論 数 
人 @ 手 続き proc 2 側 
手続 き 宣 言 procedure proc2 
(g: array【|..4] of infeger: 
var hgarray [1..3] of integer: 
i: infeger 
var j: infeger : 
k : integer : 
1: real ) 
変数 の 宣言 var x,y:infeger 
手続 き proc 2 実行 時 の スタ ッ ク の 状態 
仮 引数 f の コピ ー アド レス が 示す 内 容 を 転送 
e ※3 の 結果 の アド レス トーーー オ ーー アド レス が 示す 内 容 を 転送 
変数 d の アド レス トーーー イ オー オー その まま コピ ー す る 。 
渡さ れ た 実 引数 の アド レス 
c 十 | の 結果 の アド レス トーーー ナ ーー オー アド レス が 示す 内 容 を 転送 
配列 b の アド レス トーーー ト ーー オー その まま コピ ー す る 。 
配列 q の アド レス アド レス が 示す 配列 
要素 を すべ て 転送 
十 27 リタ ー ン ・ ア ドレ ス 
仮 引数 | ( 値 ) ] 
+21 仮 引数 K ( 値 ) ) ュ ーーー 
+19 仮 引数 」 (アド レス ) 1 ほ ーーーー 
仮 引数 の 領域 ) 7 仮 引 数 i ( 値 ) }*ーーーーー つ 
+15 仮 引数 h (アド レス ) )=ーーーーーーー〕 
+13 仮 引数 g【4〕] ( 値 ) 
+11 仮 引数 g〔3〕 ( 値 ) 
- 
+ 9 仮 引数 g【2〕 ( 値 ) 
+7 仮 引数 g[|〕 ( 値 ) 
+5 元 の レジ スタ IX の 内 容 
+3 現 ブ ロッ ク の レベ ル 番 号 ブロ ッ ク 外 アク セス の 情報 
十 1 | 一 つ レ ベル が 下 の プ ロッ ク へ の ボイン タ 
ッッ こ 変数 x 
ー3 変数 y 
SP > 
未 使用 
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避 還 誰 引数 と し て アド レス , 値 の 両方 が 渡せ る 場合 の オプ ジェ クト ・ コ ー ド (標準 Pascgl ) 
図 3-62 の よう な スタ ッ ク 状 態 に な る オプ ジェ クト ・ コ ー ド 。 
人 @ 呼 び 出 し 側 (手続 き proc 1) 


ソー ス ・ プ ログ ラム proc 2(o。 b, c 十 2。 de*3,f) 


オプ ジェ クト ・ コ ー ド | LD HL(@c) 
INC HL 

INC HL 
PUSH HL 

LD HL(@e) 
LD DE.3 
CALL IAUL 
PUSH HL 

LD HL(G@f) 
PUSH HL | 
LD HL3 

ADD HLSP 

PUSH HL 

LD HL@d 

PUSH HL トー 
LD HL9 
L__ ぁ 2ADD HLLSP 

PUSH HL 

LD HLe@b 

PUSH HL ・ 
LD HL, @q 

PUSH HL トー 
CALL proc2 
LD HL8*2 
ADD HL.SP 
LD  SPHL 


スタ ッ ク 上 に 取っ た 実 引数 の アド 
レス 用 の 領域 を 解放 する 。 
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3-Z サブ ルー チン と 閑 数 


人 @ 手 続き proc 2 側 


ソー ス ・ プ ログ ラム procedure proc2(g: qrray [|..4] of integer : 
var h: array【1..3] of integer ji: integer : 
var j:integer ik : integer :|: real) 
var x,y:infeger: 
begin : 
) 
end: ) 


オブジェ クト ・ コ ー ド proc 2 : 
LD HL.7*2 
ADD HLSP 


LD A. 6 ) 仮 引数 の 数 は 6 


スタ ッ ク 上 に 仮 引数 の 領域 を 取り そこ 
CALL SETDAG ) へ , 実 引数 の 値 ま た は アド レス を 入れ 


実 引数 の アド レス を 記憶 し て いる 領域 
の 最終 アド レス を 求め る 。 


DEFW 4-…- 、 る ラン タイ ム ・ ル ー チ ン 

DEFW 2-- 第 6 引数 値 4 バ イト 
- 全 第 5 引数 値 2 バイ ト 

DEFW Oo 第 4 引数 , アド レス 仮 引数 の 

DEFW 2 ---- ーー 字 第 3 引数 値 2 バイ ト | 内 容 を 示す 
第 29 引 数, アド レス 

雪 NE om ーッ 第 1 引数 値 8 バ イト 

DEFW 4*2- 

LD 。 A,3 ) レベ ル 番 号 は 3 

LD  。 HLL4  ) 局所 的 な 変数 は x,y の 二 コ 4 バイ ト 


スタ ッ ク 上 に 指定 の 大 き さ の 領域 を 取 
CALL LALLOC ) り , ブロ ッ ク 外 アク セス の た め の 情 報 
( を 作る ラン タイ ム ・ ル レー チン 


ラン タイ ム ・ ル ー チ ン LALLOC で 取っ 
CALL PRE ) た スタ ッ ク 上 の 依 域 を 解放 する ラン タ 


LD HL, 20 イム ・ ル ー チ ン ーー 
スタ ッ ク 上 に と っ た 仮 引数 の 領域 を 解 
ADD HLSP (2222 


SP. HL 
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3-7-2 サブ ルー チン と 関数 の コン バイ ル 


ここ で は , サブ ルー チン や 関数 の ユン パイ ル を FOR 
TRAN と Pascal を 例 に し て 説明 し ます 。 

サブ ルー チン や 関数 は 図 3 -64 の よう に 三 つ の 部 分 に 
分 けら れ ま す 。 ま ず コ ン パ イラ に 対し て サブ ルー チン 名 
や 関数 名 引数, その ルー チン 内 で 使う 変数 や 配列 の 宣 
言 を 行う 部 分 で す 。 次 に 実際 の 処理 を 行う 部 分 、 を そし て 
最後 が 終わ り を 表す 部 分 で す 。 サ ブ プルー チン や 関数 は こ 
の 順序 で 処理 きれ て いき ます 。 


1 〕) サブ ルー チン , 関数 の 始ま り の 識別 と 処理 

コン パイ ラ は サブ ルー チン や 関数 の 始ま り を 文 や 宣言 
に よっ て 識別 し ます 。 こ れ ら の 文 や 宣言 に は サブ ルー チ 
ン な ら 名 前 が , 関数 な 6 名 前 と 型 , 実 引数 を 入れ る だ め 
の 仮 引数 が 書か れ て いま す 。 コ ン パ イラ は 記号 表 へ サブ 
ルー チン 名 (関数 名 ) と その 型 を 登録 し , 仮 引数 に は 実 
引数 の アド レス また だ は 値 を 記憶 する 領域 を 割り つけ , 仮 
引数 の 名 前 を 記号 表 へ 登録 し ます 。 そし て , 実 引数 を 受 
け 取 る た め の コ ユー ド を 生成 し ます 。 

サブ ルー チン や 関数 内 で 宣言 され た 変数 や 配列 は 局所 
的 な 名 前 と し て 記憶 領域 が 割り つけ られ , 記号 表 へ 登録 
し ます 。 

FORTRAN で は , 仮 引数 や 変数 , 配列 は 実行 時 に メモ .: 
リ 上 に 静 的 に 取ら れ ま す 。 Pascal は ブロ ッ ク 構 造 を 持っ 
た 再帰 的 呼び 出し 可能 な 言語 な の で , 仮 引数 や 変数 , 配 
列 は 実行 時 に スタ ッ ク 上 に 動 的 に 取ら れ ま す 。 つ まり コ 
ン パ イル 時 に は ご ベース ・ レ ジス タ を 中 心 と する 相対 アド 
レス を 割り つけ , 実行 時 に その 領域 を も スタ ッ ク に 取る よ 
うな オプ ジェ クト ・ ュ ユー ド を 生成 し て や り ま す 。 ま た , 
Pascal は 変数 な どの 宣言 の 後に を の ルー チン 内 だ け で 
使う サブ ルー チン や 関数 が 宣言 び でき る た め , コン パイ ラ 
は サブ ルー チン , 関数 の 処理 を 再帰 的 に 行う よう に し ま 
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3-Z サフ ブシ ルー チン 〆 数 


サ プ ブ プルー チン や 関数 の 構成 


(① サ プ ル ー チ ン (手続 き ) の 構成 
僅 FORTRAN の 場合 


SUBROUTINE サ プ ブルー チン 名 (引数 ,…) サ プ ブル ー チ ン の 始ま り を 示す 。 コン パイ ラ に 対し て 
) 


サブ ルー チン 名 , 引数 , 変数 , 配列 な ど を 宣言 す 


変数 や 配列 の 型 な どの 宣言 る 部 分 。 


実行 文 実際 に 処理 を 行う 部 分 。 


END 廊 に より サブ ルー チン の 終わ り を 示す 。 


人 @ Poscal の 場合 


procedure 手続 き 名 (引数 , 6 手続 き の 始 まり を 示す 。 コ ン バ イラ に 対し て 手続 き 
名 , 変数 , 配列 な ど を 宣言 する の と この 手続 き の 
変数 や 配列 の 宣言 と 手続 き , 関数 の 宣言 み で 使用 する 手続き , 関数 を 宣言 する 。 


実際 に 処理 を 行う 部 分 。"begin" に より 始ま る 。 


"end" に より 手続 き の 終わ り を 示す 。 


②) 関数 の 構成 
@ FORTRAN の 場合 


型 FUNCTION 関数 名 (引数, …) 関数 の 始ま り を 示す 。 コン バイ ラ に 対し て 関数 名 と 
変数 や 配列 の 型 な どの 宣言 型 , 引数 , 変数 , 配列 な ど を 宣言 する 部 分 。 


実行 文 実際 に 処理 を 行なう 部 分 。 


END END 廊 に より 関数 の 終わ り を 示す 。 


人 @ Poscal の 場合 


function 関数 名 (引数, …) : 型 : 関数 の 始ま り を 示す 。 コン パイ ラ に 対し て 関数 名 と 
型 , 引数 , 変 数 , 配列 な ど を 宣言 する の と この 関数 
変数 や 配列 な どの 宣言 と 手続 き , 関数 の 宣言 の み で 使用 する 手続き , 関数 を 宣言 する 。 


) "end" に より 関数 の 終わ り を 示す 。 
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す 。 も し , 定 言 され て いた 場合 は いま コン パイ ル 中 の サ 
プルー チン や 関数 の 処理 を 中 止 し , 先 に 宣言 きれ た サブ 
ルー チン や 関数 を コン パイ ル し ます 。 


[ 2 ) サブ ルー チン , 関数 の 処理 本 体 

この 部 分 に 書か れる 文 は 代入 文 や 制御 文 , 入出 力 文 な 
と ど で す 。 代入 文 や 制御 文 の ュ コンパイル は 前 述 の 通り , 入 
出力 文 の コン パイ ル は 主として 入出 力 ラ ンタ イム ・ ル ー 
チン を 呼び 出す オプ ジェ クト ・ コ ユー ド を 生成 する こと で 
構文 は 多少 異な っ て も サブ ルー チン の 呼び 出し と 同じ で 
す 。 こ こ で 注意 し な けれ ば な ら 6 ない の は , 式 の 中 の 変数 , 
配列 の 処理 で す 。 式 の 中 で 使わ れる 変数 や 配列 は 型 や 属 
性 (引数 な の か , 局所 的 な 変数 な の か ), どの ブロ ッ ク で 
宣言 きれ た も の か , な どの こと が わか ら な いか ら で す 。 
を そこ で ユン パイ ラ は , 変数 や 配列 の 要素 を アク セス する 
よう な オプ ジェ クト ・ コ ー ド を 生成 する と き に は 記号 表 
を 検索 し , その 変数 の 属性 が だ の よう に な っ て いる の か 
確か め る 必要 が あり ます 。 


[ 3 ) サ プ ブルー チ ン , 関数 の 終わ り 


FORTRAN は END 文 に より サブ ルー チン や 関数 の 
終わ り を 知り , 実行 文 の コン パイ ル を 終わ り , 次 の サブ 
ルー チン や 関数 の ユン パイ ル の 準備 もし ます 。 

Pascal で は サブ ルー チン や 関数 の 処理 本 体 は 一 つの 
複合 文 な の で , 複合 文 の 終わ り が サブ ルー チン や 関数 の 
終わ り と な り ま す 。Pascal に は FORTRAN の 
RETURN 文 の よう な 文 が な い の で , サブ ルー チン や 関 
数 の 終わ り で スタ ッ ク 上 の 変数 領域 を 解放 し , 呼ん だ ル 
ー チ ン へ 戻る よう な オブ ジェ クト ・ コ ー ド を 生成 し ます 。 
そし て , コン パイ ラ は いま コン パイ ル が 終わ っ た サブ ル 
ー チ ン や 関数 を 宣言 し て いた サブ ルー チン ある い は 関数 
の ユン パイ ル を 再開 し ます 。 


3-Z サブ ルー チン と 生 数 


以上 , 【 1 ) 一 〔 3 ) まで す サブ ルー チン や 関数 の ユン バイ 
ルル 方法 を 述べ まし た が , メイ ン ・ ル ー チ ン も 始ま り の 識 
別 が 多少 異な る こと と 次 の 点 を 除き , まっ た だ たく 同じ で す 。 
それ は , プロ グラ ム は 必ず メイ ン ・ ル ー チ ン か ら 実 行き 
れる と いう こと で す 。 ま た だ た, FORTRAN の よう に メイ 
ン ・ ル ー チ ン 内 で は 書い て は いけ な い 文 が ある 言語 で は , 
その よう な 文 が 使わ れ だ た と き は エラ ー と する よう な 処理 
が 必要 で す 。 

最後 に メイ ン ・ ル ー チ ン も 含め た サブ ルー チン , 関数 
の コン パイ ル を 流れ 図 に し た も の を 図 3 -65 に 示し ます 。 


サ プ ブルー チン, 関数 の コン パイ ル ( メ イン ・ ル ー チ ン を 含む ) 


始め の 行 を 読む 


メイ ン ・ ル ー チ ン の 
名 前 が 指定 され た 


サ プ ル ー チ ン の 始ま り 。 サ 
プ ブルー チン 名 を 記号 表 


記号 表 へ 登録 すでに 同 
じ 名 前 が あれ ば エラ ー 


引数 の た め の 領 域 を 取り 、 
引数 の 名 前 を 記号 表 へ 
登録 、 同 じ 名 前 が あれ ば 
エラ ー 


宣言 文 の 処理 を 行う 


制御 文 の 
コン パイ ル 


代入 文 の 
コン パイ ル 


その 他 の 文 の 処理 
(FORAAT 文 な ど ) 


注 ) 注釈 行 は 入力 され な いも の と し て いる 。 


② Pascgl の 場合 
始め の トー クン を 読む 


トー クン は 


デー "Program"? 
プロ グラ ム 名 , カッ コ トー クン "program" の 次 は 
( ) 内 の ファ イル 名 を ト …| プロ グラ ム 名 (ファ イル 名 , …) 
読み 込む と な っ て いる 。 
エラ ー 
Yes 
次 の トー クン を 読む 
の 


コン パイ ル 終 わり 
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プロ ッ ク の コン パイ ル 


ラベ ル の 宣言 


人 
仙 順 


Oo 


定数 の 定義 


と 
に 】 


型 の 定義 


ズ 
L 】 
9 


変数 , 配列 の 宣言 

Yas 手続 き の 始ま り 。 引数 が あれ ば , 引数 
"procedure"?7 手続 き 名 を 記号 に アド レス を 割り 付け 

表 へ 登録 記号 表 へ 登録 

No 

Yes 関数 の 始ま り 。 引数 が あれ ば , 引数 
手続 き 名 を 記号 に アド レス を 割り 付け 

表 へ 登録 記号 表 へ 登録 


3 
oO 


文 の コン パイ ル | … | 寺 


No 


mW 
9U 


P 
o 


と 3 

6 
H 
| 
| 


関数 の 型 が 指定 
され て いる の で 
その 処理 


ブロッ ク の 
コン パイ ル 


ロッ ク の 
で 終わ り は "7 


No 


エラ ー 


Yes 
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づく コン クラ 全体 の 成 


コン パイ ラ の 設計 手法 も 前 項 ま で で 一 通り 説明 し 終わ 
っ た の で , 最後 に コン パイ ラ 全 体 に つい て も う 一 度 考え 
て みる こと に し ます 。 

図 3 -66 は 1 パス 方 式 の コン パイ ラ の 起動 か ら 終了 ま 
で の 制御 の 流れ と デー タ の 流れ で す 。 コ ユン パイ ラ が 起動 
る れる と , まず イニ シャ ライ ズ ・ ル ー チ ン で コン パイ ラ 
の ワー ク ・ エ リア や 記号 表 を イニ シャ ライ ズ (初期 化 ) 
し ます 。 こ の と き イ ニシ ャ ライ ズ ・ ル ー チ ン は 起動 時 に 


コン バイ ラ の 構成 と 制御 の 流れ ( 1 バス 方 式 の 場合 ) 


コン パイ ラ の 起動 
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3-8 コン ン パ イラ 全休 の 林 成 


指定 きれ る ソー ス ・ プ ログ ラム , オブ ジェ クト ・ ブ ログ 
ラム の ファ イル を オー プン し , スイ ッ チ や オプ ショ ン を 
解析 し , コン パイ ル の 準備 を し ます 。 イ ニシ ャ ライ ズ が 
終わ る と 構文 解析 へ 行き , ユン パイ ル を 始め ます 。 コン 
2 パイル 中 は 構文 解析 が 常に 処理 の 中 心 に いて , 字 勾 解析 , 
最適 化 , コー ド 生 成 は 構文 解析 の 下 で 仕事 を し ます 。 コ 
ン パ イル の 終了 も 構文 解析 が 判断 し ます 。 コ ユ コンパ イル 終 
了 時 に は オー プン きれ て いる すべ て の ファ イル を クロ ー 
ズ し , ワー ク ・ フ ァイル を すべ で て 削除 し ます 。 図 3 -67 は 
コン パイ ル し て いる と き の デ ー タ の 流れ と 処理 を ある 程 
度 詳 し く 表 し た 図 で す 。 矢印 が デー タ の 流れ を , 四角 が 
処理 を 表し ます 。 字 名 解析 で は ソー ス ・ プ ログ ラム か ら 
文字 を 入力 し , 予約 語 , 名 前 , 数 値 な ど ご トーク ン が つく 
5 れ ま す 。 構 文 解析 で は トー クン を 入力 し , 文法 に し た 
が っ て 構文 を 解析 し , その 結果 に より 次 の 構文 の 処理 へ 


( 量 宣 》 コン バイ ラ 内 の 処理 構造 
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行っ た り , 最適 化 , コー ド 生 成 ヘ オプ ジェ クト ・ コ ー ド 
の 生成 を 依頼 し ます 。 最 適 化 , ユー ド 生 成 は 構文 解析 か 
依頼 きれ る すべ て の オブ ジェ クト ・ コ ー ド が 生成 で き 
る よう , いく つも の 生成 処理 を 持つ こと に な り ま す 。 

この よう に , ツー ス ・ プ ログ ラム は いく つも の 処理 を 
通っ つて オブ ジェ クト ・ プ ログ ラム と な り ま す 。 各 処理 に 
は エラ ー の チェ ッ ク が あり , 誤っ た オプ ジェ クト ・ プ ロ 
グラ ム が つく られ な いよ うに し て いま す 。 も し , エラ ー 
を 発見 し た 場合 は エラ ー 処 理 へ 飛ぶ よう に な っ て いま す 。 
エラ ー 処 理 で は エラ ー メ ッ セ ー ジ を 表示 し , エラ ー 回 復 
が 可能 な ら エ ラー 回 復 の 処理 を し て コン パイ ル を 続行 し 
ます 。 エ ラー 回 復 が 不可 能 な と き は , 異常 終了 と いう こ 
と で コン パイ ル 終 了 の 処理 に 移り ます 。 

まだ た コン パイ ラ に は , ソー ス ・ ブ プロ グラム, 生成 し た 
オプ ジュ クト ・ コ ー ド 。 エラ ジー メタ セー グ 。 オブ プ ジェ グ 
ト ・ プ ログ ラム の 大 きる や アド レス な ど を コン パイ ル ・ 
リス ト と し て 印刷 する 処理 も あり ます 。 

この よう な 処理 が 集まっ て コン パイ ラ が つく られ て い 
ます 。 た だ し , ここ で 示し だ た コン パイ ラ の 構成 は パス の 
回 数 や 言語 の 内 容 に よっ て 変わ っ て きま す 。 

最後 に 個人 レベ ル で 小さき な コン パイ ラ を 設計 , 作成 す 
る と き の ア ドバイ ス を まとめ て お きま す 。. 
信 構 文 解 析 は 再帰 的 な 方 法 の ほう が 簡単 で す 。 
念 最適 化 は 式 の 演算 順 應 を 入れ 換え る 程度 で よい と 思い 
ます 。 あ まり 複雑 な 最適 化 は 設計 も 大 変 で , ユン パイ ラ 
自体 も 大 きく な る か ら 6 です 。 
@⑱ エ ラー 処理 は , 後 の コ ン パ イル に 影響 も 与 を る エラ ー 
な ら 異 常 終 了 さ せる よう に し ます 。 それ は , その よう な 
エラ ー を 回 復 き せる の が 大 変 な 処理 どか ら で す 。 それ に , 
不 完全 な 回 復 な らし な い ほ う が ま し だ か ら で す 。 
人 @ コ ランバ イル ・ リ スト の 印刷 は 必要 あり ませ ん 。 あ れ ば 
便利 で す が , ツー ス ・ プ ログ ラム の 印刷 は 他 の 方 法 で 替 
える こと が で きる か ら で す 。 


コン パイ ラ も プロ グラ ム な の で , 作成 手順 も 他 の プロ 
グラ ム と 同じ で す 。 コ ユ コン パイ ラ に 限ら ず プ ログ ラム の 作 
成 は , 打ち 込み ,。 デバ ッ グ と いっ だ た コンピ ュー タ に 向 か 
う 作業 より , それ 以前 の 設計 段階 に 念 を 入れ る こと が 大 
切 で す 。 

前 に 文法 書 や コン パイ ラ の 仕様 に つい て 述べ まし た だ 
が , コン パイ ラ は これ ら を も と に 設計 し ます 。 プ ログ ラ 
ム の 設計 で は , コン パイ ラ 全 体 お よび 各 処 理 ル ー チ ン の 
設計 は も ちろ ん で す が , その 設計 の 前 に , 変数 や 配列 へ 
の アド レス の 割り つけ か た , 記号 表 の 形式 と 検索 方 法 , 
サブ ルー チン や 関数 と の 引数 の 受け 渡し 方 法 , 生成 する 
オブジェ クト ・ コ ー ド の 種類 とし ラ ンタ イム ・ ル ー チ ン の 
仕様 , エラ ー の 処理 方 法 な ど を まとめ , プロ グラ ム 設 計 
書 と し て 残し て お きま す 。 

特に ,。 オブ ジェ クト ・ プ ログ ラム の 変数 , 配列 , 引数 
な どの デー タ 構 造 ., オブ ジェ クト ・ コ ユー ド の 種類 , ラン 
タイ ム ・ ル ー チ ン の 仕様 の 決定 を 初め に 行い ます 。 これ 
ら は コン パイ ラ の 性 能 を 決め る 大 切な 要素 な の で , 十分 
に 時 間 を か け て くだ きい 。 

デー タ 構 造 の 設計 で は , 変数 や 配列 の アド レス の 割り 
つけ か だ た や アク セス 法 。 サブ ルー チン や 関数 と の 引数 の 
渡し か た な どの , 生成 する オプ ジェ クト ・ プ ログ ラム 内 
で 使わ れる デー タ の 構造 を 決定 し ます 。 オ プ ジ ェ クト ・ 
ュー ド の 決定 で は まず 個々 の 構文 が 機械 語 で は どの よう 
に な る の か を 考え , 湊 に 他 の 構文 と 組み 合わ せる こと を 
考え を ます 。 こ の と き , コー ド が 冗長 に な る よう な ら 6 最適 
化 の 方 法 も 考え を , 改良 する よう に し ます 。 CPU の 命令 の 
関係 か ら ど うし て も 冗長 に な る 場合 は ,。 サ プ ブルー チ ン 化 
し て , ラン タイ ム ・ ル ー チ ン と し て 呼び 出す よう に し ま 


う - の コン ン ザラ の だ 成 考 訪 
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す 。 図 3 -68 は サブ ルー チン 化す れ ば と どの 程度 メモ リ が 節 
約 で きる か を 示し て いま す 。 ラ ンタ イム ・ ル ー チ ン に ま 
と め る と き は , ルー チン 名 や エン トリ の ラベ ル ,。 フ パラ メ 
ー タ な どの 仕様 を 書い て お きま す 。 

次 に コン パイ ラ 内 部 の 各 処 理 の 設計 を 行い ます 。 
プロ グラ ム 設 計 書 が 正しく つく られ て いれ ば , それ に し 
た が っ て コー ディ ング , 打ち 込み 、 アセン ブル ある い は 
コン パイ ル 。 そし て デバ ッ グ と な る わけ で す 。 デバッグ 
時 に は 逆 ア モン ブラ を 備え を た モニ タ あ る い は デバ ッ ガ が 
ある と 便利 で す 。 そ れ は デバ ッ グ 中 に オブ ジェ クト ・ ュ 
ー ド を チェ ッ ク す る と き , 逆 ア モン プラ が ある と 生成 し 
だ た コード が 一 目 で わか る か ら で す 。 デ バッ グ で は 多く の 
テス ト ・ プ ログ ラム を コン パイ ル る せ て みる こと が 大 切 
で す 。 そ れ も 一 つ 一 つの 文 か ら 始 め , 次 第 に 複数 の 文 を 
組み 合わ せ , 最終 的 に は 実用 的 な ゲロ グラ ム ま で , コン 
2 パイ ラ が 正しく コン パイ ル す る か テス ト し ます 。 で きれ 
ば この 後に サン グル と し て 他人 に 評価 し て も らい まし ょ 
う 。 それに よっ て 見 落と し て いた だ ミス が 発見 され る こと 
が あり ます 。 こ こま で くれ ば 一 応 完成 で す 。 

完成 し た ら プ ログ ラム 設計 書 , コン パイ ラ の 仕様 書 と 
文法 書 を まとめ , コン パイ ラ の プロ グラ ム ・ リ スト と と 
も に 整理 し ,。 バグ が 発見 る され た と き や バ パー ジョン ・ ア ッ 
プ の と き の だ た だめ 保管 し て な お きま し ょ 2 う 。 


3-9 コン イラ の 秦 成 手 碑 


サブ ルー チン 化 と メモ リ の 節約 


① サブ ルー チン 化し な いり 場合 ② サブ ルー チン 化し た 場合 
プロ グラ ム プロ グラ ム サブルーチン X 


革 


③, ⑤, ⑥ の 内 容 を サブ ルー チン 化し , その サブ 
ルー チン を 呼び 出す よう に プロ グラ ム を する と , 使 
用 する メモ リ の 量 が 少な く な る 。 


同じ 内 容 の ルー チン が (③, ⑤, ⑥ 
の 3 ヵ所 で 使わ れ て いる 。 


節約 され る メモ リ の 量 は 次 の よう な 式 で 求まる 。 


: サブ ルー チン 化す る ルー チン の 大 き さ ( バ イト 数 ) 

・ プロ グラ ム 中 で 使用 され て いる 回 数 

: サブ ルー チン の 呼び 出し 命令 の 大 き さ ( バ イト 数 ) 

・ サブ ルー チン か ら 戻 る た め の 命令 の 大 き さ ( バ イト 数 ) 
・ 節約 で きた メモ リ の 大 き さ ( バ イト 数 ) 


m= (Sn) 一 ($+『 二 CX ) 


も し , 『m ミ 0 な ら サ ブル ー チ ン 化 する こと で か え 
っ て 余分 な メモ リ を 使う こと に な る 。 
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$7e//y 


第 己 部 で は , ブロ グラ 
ム 言 語 Stellqar の コン 
パイ ラ を 公開 し ます 。 
まず 第 1 章 で , Stellew 
の 特徴 や 設計 思想 , 文 
法 に つい て 述べ ます 。 1 


7/- / ブロ グラ ム 
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Stellar は 小 規 模 ゲ ログ ラム の 開発 用 言語 で , 文法 的 に 
は C と Pascal を 合わ せ た よ うな 構造 を し て ぢ り , 簡単 
な ゲー ム や 制御 用 プロ グラ ム な ど に 適用 で きま す 。 ま が た , 
Stellar コン パイ ラ の オブ ジェ クト ・ プ ログ ラム は ROM 
化 可 能 で す 。 

Stellar の 最大 の 特徴 は , 変数 の メモ リ 割 りつ け , お よ 
び 演 算 が すべ て バイ ト (符号 な し 8 ビット) 単位 で ある 
こと で す 。 デ ー タ が バイ ト 長 で すむ よう な プロ グラ ム な 
ら , 他 の コン パイ ラ に 比べ 小さ な オ ブ プ ジ ェ クト ・ プ ログ 
ラム を 生成 する こと が で きま す 。 

現在 この コン パイ ラ は Z80 用 の も の だ け で , CPM 
バー ジョ ン , PC-8801 バ エージ ョ ン , MSX バー ジョ ン の 三 
種類 が あり ます 。 本書 で は MSX バー ジョ ン 以 外 の も の 
を , 特に CP プ M バ ー ジ ョ ン は アモ セン ブル ・ リ スト て で 公開 
ずる な 革 し まし も だ 。 


み 詩 詳 ぶ 7e/77 と ば 


Stellar で は 次 の 二 点 を 設計 目標 に し まし た 。 
① コ ン パ イラ 自体 が 小さ く な る よう に する 。 
② 小 規模 な プロ グラ ム 開 発 に 使え る よう に する 。 
Stellar の 言語 設計 コン パイ ラ の 作成 に あたっ て の 条 
件 は 次 の 通り で す 。 
人 @ ハ ー ド ウェ ア の 条件 
①CPU は Z80 を 使う 。 
② メ モリ (RAM) が 少な い パ ソコン で も 使え る 。 
ディ スク が な く 《 て も コン パイ ル で きる 。 
④ 他 機種 へ の 移植 が 簡単 に で きる 。 
@ ソ フト ウェ ア の 条件 
① 実 行 速度 を 上 げ る た め , バイ ト (8 ビッ ト 長 ) を 基 
本 デー タ と する 。 
② Stellar の アプ ログ ラム 中 に 機械 語 が 書け る よう な 文 
を 用 意 す る 。 
③ 変 数 は 静 釣 に メモ リ に 割り つけ , アク セス 時 の 余分 
な アド レス 計算 が いら な いよ うに する 。 
④ 入 出力 は 入出 力 文 に よら ず , ライ ブラ リ を 使う 。 


また だ , 次 の よう な 機能 を 持つ よう に し まし た 。 

① 構 造 化 プロ グラ ミン グ の た め の 制 御 文 を つく る 。 

(プロ グラ ム 内 で 使わ れる 変数 は 全域 と 局所 の 二 種 類 
を 持つ よう に する 。 

⑬ 再 帰 的 な プロ グラ ム が つく れる よう に する 。 

(《⑯ や オブジェ クト ・ プ ログ ラム が ROM 化 で きる よう に , 
ROM の 先頭 アド レス (オブ ジェ クト ・ プ ログ ラム の 
スタ ー ト ・ ア ドレ ス ) や RAM の アド レス (変数 や ス 
タッ ク の エリ ア ) を 自由 に 設定 可能 に する 。 

メモ リ 64K バ イト , 1I/0 256 バイ ト は 何ら か の 方 法 で 
アク セス で きる よう に する ある 。 


/ー グ S7e/77o7 の 設計 : 尻 者 
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/- う S7e//7 の 雄 文 と 交流 


192 


ここ で は , Stellar の 文法 を 次 の 五 つ に 分 け て 解説 し ま 
す 。 
Stellar プロ グラ ム の 構成 要素 
〇 プロ グラ ム の 構造 
〇 文 
〇 式 
〇 変数 定数 
Stellar の 言語 的 な 特徴 は 以下 の 通り で す 。 
① 英 小文字 ペー ス で プロ グラ ム を 書く 。 
〈② サ プ ブルー チン は な く , すべ て 関数 と し て 記述 する 。 
③ 関 数 は 値 戻 き な く て も よい 。 
④ 式 の 中 で 変数 へ の 代入 が で きる 。 ま た , 代入 を し な い 
式 も 書け る 。 
CPU 内 の レジ スタ (B, IX,IY ) を 使う こと が で きる 。 


[1〕 Stellar プロ グラ ム の 構成 要素 

Stellar の プロ グラ ム は , 予約 語 , 名 前 , 数 値 。 定数 , 
文字 定数 , 文字 列 定数 , 特殊 記号 、 それ に 分 離 符 と 注釈 
の 人 狼 つ で 構成 され て いま す 。 


予約 語 

Stellar は 59 個 の 予約 語 を 持っ て いま す ( 表 1-1 )。 英 
小文字 で も 英 大 文字 で も 同じ 意味 に な り ま す 。 た と えば 

*WHILE?, いび WHiLe?, WhiLe” は いずれ も 子 約 語 

while” と 判断 され ます 。 


名 前 は 変数 や 定数 , 関数 な ど を 表し , 構文 は 次 の よう 
に な り ま す 。 


7-3 5Sze/ar の 林 文 と 文法 


stellar の 予約 語 


dex inc minus 
debug include not 

else inline or 

elseif inx overflow 


exit ix pariy 
for iy plus 
go ldx port 
gofo loop Prog 


hi low recUrsive 
memory refurn 


名 前 は 英 数 字 (AーZ, a 一 2Z,。 0 一 9) と アン ダー 
スコ ア ( ) か ら な る , 数 字 以 外 の 文字 で 始ま る 文字 列 
で す 。 長き に 制限 は あり ませ ん が , 意味 を 持つ の は 最初 
の 12 文 字 ま で で す 。 

人 @ 正 し い 名 前 の 例 
ABC 
_ Ad0123 
abcdefghijiklmn … 初 め の 12 文 字 (abcdefghijkl ま 
で ) が 名 前 と な る 。 
ab XYZ 
久 話 っ た 名 前 の 例 
1ABC … 数 字 で 始ま きっ て いる 。 
ab@cd  … 名 前 の 中 に @( 英 数 字 で も で も な い ) 
が ある 。 
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low … 了 予約 語 は 名 前 と し て 使え な い 。 
数 値 定数 


数 値 定数 に は 10 進 数 と 16 進 数 が あり , 次 の よう な 構文 
で 表 き る れ ま す 。 


- て 吾 つ - 


数 字 
3 
英字 の AF 
ある い は af 


10 進 数 は 数 字 (0 9) だ け で 構成 され た 文字 列 で , 
0 -65535 ま で の 値 で な けれ ば な り ま せん 。16 進 数 は ドル 
記号 ($) で 始ま る 数 字 と 英字 AA 一 F あ る い は aーf で 
構成 され た 文字 列 で , 16 進 数 で 0 -FFFF まで の 値 で な 
けれ ば な り ま せん 。 


例 
I0 進数 0 1I20 0043 1023 32934 255 
Ile 進数 $0 $78 $002B $3FF $80a6 $f 
文字 定数 


文字 定数 は 文字 自身 や も デー タ と し ます 。 


OSGCrzCrr の seO ミ 


文字 定数 は 制御 コー ド 以 外 の 1 文字 を 引用 符 で ) で 
囲ん だ も の で , 文字 コー ド を 数 値 と し て 扱い ます 。 右 側 
の 引用 符 は 省略 する こと が で きま す 。 


例 
7A*…$41 と 同じ "mt…$63 と 同じ 
" ア *…$BI と 同じ の …$ 27 と 同じ 
7A …$41 と 同じ "\…$5C と 同じ 


7-3 5Sze/ar の 世 文 と 文法 


文字 列 定数 は 文字 列 自身 ち も デ ゲー タ と し て メモ リ 上 に 格 
納 す る 場合 に 使い ます 。 


文字 列 定 数 


制御 コー ド ま た は 二 重 
引用 符 以外 の 文字 


文字 列 定数 は 二 重 引用 符 (”) で 囲ま れ た 0 文字 以上 の 
文字 列 の こと で す 。 二 重 引 用 符 を 二 つ 続 け て 書け ば 文字 
列 の 中 に 一 つの 二 重 引用 符 を 入れ る こと が で きま す 。 
例 


ヶ ABCOE27 eee 文字 列 ABC0I2 が メモ リ に 格 
納 さ れる 。 

ヶ ABC7 タ abe eee 文字 列 ABC” abc が メモ リ に 
格納 され る 。 

2 全 PPFPPFPPP 空 の 文字 列 。 何 も 格納 さ れ な 
い 。 

カナ 漢字 …… の im カナ 文字 , 漢字 も 使用 で きる 。 
た だ し 漢字 は シフ ト JIS コー 
ド だ け を 使う 。 


特殊 記号 に は 33 個 の 演算 子 と 区 切り 記号 が あり ます 
( 表 1-2 )。 
特殊 記号 
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人 華 和 | 

分 離 符 に は 空白 文字 (タブ も 空白 )、 行 の 終わ り , 注釈 
の 三 つ が あり , 子 約 語 , 名 前 。 定数 , 特殊 記号 を 区 切る 
た め に 用 いら れ ま す 。 こ れ ら が 構文 的 に 明確 に 識別 で き 
る 場合 は 省略 びき ます 。 


3 


q>=$b fhen b:=q qand 
人 す 人 供 溝 飼 芝 
1 は 分 離 符 が 必要 な 部 分 
+ は 分 離 符 が 必ず し も 必要 で な い 部 分 


注釈 は ン * で 始ま り * ノ で 終わ る 文字 列 で す 。* ン の 
2 文字 を この 順 で 注釈 の 文字 列 中 に 書く こと は で きま せ 
^。 


注釈 


(、/* ) っ 


任意 の 文字 


注釈 は コン パイ ル , 実行 に 何ら 6 影響 も 与え を ませ ん 。 


[ 2 ) プロ グラ ム の 構造 

Stellar の ゲロ グラ ム は 主 プ ログ ラム と いく つか の 関 
数 か ら な っ て いま す ( 図 1-1 )。 こ れ を 構文 図 で 表す と 
次 の よう に な り ま す 。 


7-3 5Sze/ar の 栖 文 と 文法 


sfellqr プロ グラ ム の 構造 


プロ グラ ム の 頭 書き 


全域 的 定数 の 定義 
全域 的 変数 。 デー タ の 宣言 


( 主 プロ グラ ム ) 文 の 並 び 


全域 的 定数 の 定義 
全域 的 変数 。 デー タ の 宣言 
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(1) プ ログ ラム の 頭 書き 
Stellar の ゲロ グラ ム は 必ず 頭 書き か ら 始 ま ら な けれ 
ば な り ま せん 。 構文 は 次 の 通り で す 。 


プロ グラ ム の 頭 書き 
Ce ) 〇 LEzzzsz4G で 


プロ グラ ム 名 


オプ ショ ン ・ ス イッ チ 


頭 書き で は プロ グラ ム に 名 前 を つけ , コン パイ ラ に 対 
する 指示 を 与え を ます 。 この 指示 は オプ ショ ン ・ ス イッ チ 
と いい , 次 の 四 つ が あり ます (英字 は 小文字 で も 大 文字 
で も 可 )。 

%p: ア ドレ ス 。 … オ ブ ジ ェクト ・ コ ー ド の ロー ド 開 始 
アド レス を 指定 する 。 


2%d: アド レス  … 変 数 や ワー ク ・ エ リア の 先頭 アド レン 
ス を 指定 する 。 

%s: アド レス 。 … ス タッ ク の ボトム ・ ア ドレ ス を 指定 
する 。 

% debug … デ バッ グ ・ モ ー ド で コン パイ ル す る 。 


%p, %d, %s は コン パイ ル 時 の アド レス を 指定 する も 
の で , 各 ア ドレ ス は 図 1-2 の よう に し ます 。 指定 され な 
いと デフ ォ ル ト の アド レス と な り ま す 。 デ フォ ルト 値 は 
機種 ご と に 異な る の で 注意 し て くだ さい 。 た と えば CP 
〆M バ パ バージョン で は %p : $0100, %d: $4000 で %s が 
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7-3 5Sze/ar の 林 文 と 文法 


オプ ショ ン ・ ス イッ チ %p, 2d, 5s と オプ ジェ クト ・ プ ログ ラム 


DP:XxXxXxX 
ラン タイ ム ・ ル ー チ ン 


オプ ジェ クト ・ コ ー ド 


%d:nnnn 


変数 , ワー ク ・ エ リア 


スタ ッ ク ・ エ リア 
1 高 ア ドレ ス 


注 ) xxxx, nnnn, mmmm は 数 値 定数 の こと 。 


6, 7 番地 の 内 容 と な り ま す 。 


@ た と えば 


%p:0, %d:$2000, %s:$2400 


と オプ ショ ン ・ ス イッ チ が 指定 され た 場合 
コン パイ ラ は 次 の よ う に オプ ジェ クト ・ コ ー ド 
を 生成 し ます 。 


アド レス (|6 進 ) 
0000 


ラン タイ ム ・ ル レー チン 


オブジェ クト ・ コ ー ド 


変数 , ワー ク ・ エ リア 


スタ ッ ク ・ エ リア 


% debug を 指定 し な いと , コン パイ ラ は デバ ッ グ の た 


め の 文 を 注釈 と し て 扱い ます 。 
例 
progTEST | (): 


… プ ログ ラム 名 は TEST |, オプ ショ ン ・ ス イッ チ の 


指定 な し 。 


prog utlI(96p : $1000, 9%d : $4000, 96s : $9000) : 
… プ ログ ラム 名 は utl, オブ ジェ クト ・ コ ー ド は |6 進 数 
で 1000 番 地 か ら , 変数 , ワー ク ・ エ リア は 4000 番 地 , 


スタ ッ ク ・ ボ トム は 9000 番 地 。 
prog fxn(96 debug, 96d : 12288) : 


… プ ログ ラム 名 は fxn で コン パイ ル は デバ ッ グ ・ モ ー 
ド , オプ ジェ クト ・ コ ー ド は 12288(I6 進 数 で は 3000) 


番地 か ら 出 力 。 
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(2②) 定 義 と 宣言 
定義 と 宣言 は , 定数 定義 部 , 変数 宣言 部 , デー タ 宣言 
部 , お よび コン パイ ル 制 御 文 か ら な り ま す 。 


計 コン パイ ル 制 御 文 剛 


ュ ン バイル 制御 文 に つい て は (3 〕 で 解説 し て いま す 
の で , そちら を ご らん くだ る きい 。 


定数 定義 部 は アセ ンプ ブラ 言語 の EQU 命令 に 相当 する 
も の で , 定義 され た 名 前 の こと を 定数 名 ほし いい ます 。 定 
数 名 は プロ グラ ム 中 で は 数 値 定 数 , 文字 定数 と 同等 に 扱 
われ ます 。 


定数 名 で 定義 どき る の は , 定数 式 で 計算 る きれ だ 16 ビ ッ 
ト 長 の 値 で す 。 定 数 式 と は 定数 (数 値 や 文字 あるいは 
定義 ずみ の 他 の 定数 名 な ど ) 同士 を 加減 し た 式 の こ と で 
計算 は 常に は 16 ビット 長 で 行わ れ オ ー バ ー フ ロー は 無視 き 
穫 ま す 。 


7-3 5Sze//ar の 聞 文 と 文 


例 


cons cl: 三 120, xyz: 三 $af,。 c2: 三 cl 十 a' 一 XYzZ: 


1 
定数 名 c1 を 定数 名 xyz を 定数 名 c2 を 
120 と 定義 $af と 定義 c1 十 'aーxyz 

の 計算 結果 の 値 と 定義 


変数 宣言 部 は プロ グラ ム 中 て で 使 う 変数 を 定 言 する 部 分 
で , 使わ れる 変数 は すべ て ここ で 宣言 し て お か な けれ ば 
な り ま せん 。 


ここ で は 変数 に アド レス を 割り つけ る だ け で , 初期 値 
は 出力 し ませ ん 。 で すか ら , 初期 値 が 必要 な 変数 は プロ 
グラ ム 中 で 値 を 設定 し な けれ ば な り ま せん 。 図 1-3 は 変 
数 の 宣言 と メモ リ へ の 割り つけ を 示し た 例 で す 。 

デー タ 宣言 部 は 定数 を メモ リ 上 に 記憶 する た め の も の 
で , 記憶 し た 定数 に は デー タ 名 が つけ られ ます 。 データ 
名 は 代入 で き な い こと を 除き , プロ グラ ム 中 で 変数 と 同 
等 に 使う こと が で きま す 。 


注 ) デー タ 名 と コロ ン (: ) の 間 に 
分 離 符 を 入れ て は な ら な い 。 
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変数 の 宣言 と メモ リ へ の 割り 付け 例 


変数 の 宣言 


Var qa, b qt($5c),c(0〕, d(2〕, e[〔 


〕, f(3) qt($ 80), 
責 [ 


メモ リ へ の 割り 付け 状態 
変数 , ワー ク ・ エ リア 


條 = ー | 


@ gl の 付か な い 変 数 は %d で 設定 し た エリ 
ア の 方 に 取ら れる 。 一 つの 変数 の 大 き さ は 
すべ て 1 バイ ト で , (定数 式 ) で 定数 式 の 計 
算 結 果 の 長 さ (バイ ト 数 ) だ け の 領域 が 取 
られ る 。 


005C 番 地 


b 一 -』 


f 一 』 


0080 番 地 


注 ) e〔1) と し て いる 所 は 
単に e と し て も 同じ 。 


@qlt の 付い た 変数 は 指定 され た アド レス を 
変数 の アド レス と し , 変数 , ワー ク ・ エ リア 
に は 領域 を 取ら な い 。 
qt の 付い た 変数 に 〔 定 数 式 } を 書い て も そ 
れ は 無視 され 注釈 と し て 扱わ れる 。 


定数 の 前 の byte や word は , 記憶 が バイ ト 単 位 な の か 
ワー ド 単 位 な の か を 指定 する もの で す 。 バ イト で 記憶 す 
る 場合 は byte の 指定 は 省略 で きま す 。 ま た , word の 代 


人 わり に # を 使う こと も で きま す 。 


datqa di: word $3fe, ヾ ABC? , 


byte i20, 


CZ で 
12? 


d2: 半 25| : 


| て こっ 


4 | 4 2| 4 3| 6 ile z|e 3| 2 2| 3 | 3 2|o 0|F Blo 0 
1 1 1 L 1 上 1 1 1 」 1 1 


7 8F Elo 3 
1 に 


d2 


7-3 5Sze/ar の 林 文 と 広 法 


(3) 主 プロ グラ ム 
Stellar の ゲロ グラ ム は 必ず 主 プ ログ ラム か ら 実 行き 
れ ま す 。 


主 プ ログ ラム は 一 つの 複合 文 と し て 書か れ ま す 。 


(4) 関 数 の 頭 書き 

関数 の 頭 書 き は , ここ か ら 関 数 が 始ま る こと を 直言 す 
る た め の も の で , 一 つの 関数 は 関数 の 頭 書き と プ ブロック 
に より 構成 きれ て いま す 。 


関数 の 頭 書き 


再帰 的 に 呼び 出す 関数 は , 関数 名 の 前 に recursive と 
書か ね ば な り ま せん 。recursive と 書か れ て いる 関数 は , 
呼び 出る され た と き 局 所 的 な 変数 の 値 を スタッ ク に 保存 し 
ます 。 

Stellar で は 関数 に 実 引数 の 値 を 渡し ます 。 引 数 に は 8 
ビッ ト 長 と 16 ビ ッ ト 長 の 二 種 類 が あり , 8 ビット 長 の 値 
は 仮 引数 (局所 的 な 変数 ) に , 16 ビ ッ ト 長 の 値 は IX あ 
る い は IY の イン デック ス ・ レ ジス タ に 格納 され ます 。 関 
数 の 頭 書き に 書か れる 仮 引数 や イン デック ス ・ レ ジス タ 
名 は 次 の よう な 意味 を 持っ て いま す 。 
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順序 は 変え られ な い 。 


関数 名 ( 仮 引数 1, 仮 引数 2, …, 仮 引数 n :#IX , #iy) : 


仮 引数 の 数 は 0 一 32 個 まで , 
33 個 以上 書け る が 33 個 目 以降 
に は 実 引数 は 格納 され な い 。 


* 16 ビ ピッ ト 長 の 値 を イン デック 
ス ・ レ ジス タ iy に 受け る 。 


* 壮 の 指定 が な いと , 関数 呼び 出 
し 前 の イン デック ス ・ レ ジス タ iy の 
内 容 が 保存 され , 関数 実行 後 も 
iy の 内 容 は 変化 し な い 。 

# せ の 指定 が ある と , イン デ ッ 
クス ・ レ ジス タ iy の 内 容 は 保存 
され ず , 関数 内 で iy に 対す る 操 
操作 が ある と iy は 変化 する 。 


ーー イン デック ス ・ レ ジス タ Ix に つい て 
上 と 同様 。 


(5) ブ ロッ ク 
ブロッ ク は , 定義 と 宣言 . お よび 一 つの 複合 文 に より 
構成 きれ ます 。 


ブロ ッ ク 内 で 定義 ある い は 宣言 され た 定数 名 , 変数 名 , 
デー タ 名 は 局所 的 な 名 前 と し て 扱わ れ , 有効 範 胃 は を の 


関数 内 だ どけ で す 。 

(⑥) 名 前 の 有効 範囲 

Stellar で は 名 前 の 有効 範囲 を 深 の よう に 決め て いま 
す 。 

① 局 所 的 な 名 前 


仮 引数 ,、 お よび プ ブロック 内 で 定義 きれ た 定数 名 変数 

名 , デー タ 名 は 局所 的 な 名 前 で , 同一 関数 内 で の み 有 効 

で す 。 王 プロ グラ ム や 他 の 関数 か ら は 使え ませ ん 。 全域 

的 な 名 前 と 同じ 名 前 を 局所 的 な 名 前 と し て 定義 , 宣言 し 

た 場合 , その 関数 内 で は 局所 的 な 名 前 を 優先 し , 全域 的 
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な 名 前 の ほう は 参照 で きま せん 。 

(②⑦ 全 域 的 な 名 前 

局所 的 な 名 前 以外 は すべ て 全域 的 な 名 前 で す 。 全域 的 
な 名 前 は , 主 プ ログ ラム や 関数 の 別 な く プ ログ ラム 全体 
で 共通 に 使え ます 。 全域 的 な 名 前 に は 関数 名 や 定数 名 , 
変数 名 . デー タ 名 が あり , 関数 名 以外 は 定義 , 宮 言 され 
た 以後 有効 に な り ま す 。 関 数 名 に つい て は , 書か れ て い 
る 場所 に よら ず , すべ て の 場所 で 有効 で す 。 


【 3 〕 文 (ステ ー ト メン ト ) 

文 は 実際 に 計算 や 仕事 を する も の で , 次 の 構文 に 示す 
よう に 15 種 類 あ り ま す 。 式 は 次 の (4 〕 で 解説 する と し 
て , ここ で は 式 以外 の 文 に つい て 解説 し ます 。 


開講 
| 才 ] 
イン デック ス 
隊 作文 | 
注 ) ラベ ル と コロ ン (: ) の 間 に 還 P7R 
ら 制御 文 
遇 計 
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文 に は ラベ ル を つけ る こと が で きま す 。 ラ ベル は 主 プ 
ログ ラム や 各々 の 関数 内 で の み 有 効 な 局所 的 な 名 前 で す 。 


(1) 空 文 
何 の 動作 も しない 文 の こと で す 。 


*(:) > 


空家 


(2⑫) 複 合 
複合 文 は いく つか の 文 を まとめ て 一 つの 文 と し て 扱う 
も ので, 文 が 書か れ て いる 順に 実行 が 行わ れ ま す 。 


(③ 下 文 
if 文 の 構文 は 次 の 通り で す 。 


if 文 は 式 の 計算 結果 が ゼロ 以外 の と き を 真 , で ロ の と 
き を 偽 と し て いま す 。 真 の と き は then の 決 の 文 を , 偽 の 
と き は else の 次 の 文 を 実行 し ます 。else の 次 の 文 が 下 文 
の と き は , elseif と する こと が で きま す 。 

図 1-4 は 下 文 の いく つか の 形式 を 流れ 図 で 表し た も 
の で す 。 
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if 


if 式 then 文 if 式 then 文 | else 文 2 


式 の 計算 
結果 は ? 


if 式 | 1hen 文 | if 式 | then 

elseif 式 2 then 文 2 elseif 式 2 then 
) ) ) 1) 

elseif 式 n then 文 n elseif 式 n then 


| の 計算 ゼロ 以外 
結果 は ? 
ゼロ 


式 n の 計算 SN 
式 n 
結果 は ? 所 


(4) while 文 
繰り 返し の た め の 文 の 一 つ で , 構文 は 次 の よう に な っ 
て いま す 。 


while 文 は 式 の 計算 結果 が ぜ ロ に な る ( 偽 に な る ) ま 
で 式 の 後ろ の 複合 文 を 繰り 返し 実行 し ます 。while 文 で 
は 始め に 式 の 計算 結果 を 調べ る た め , 場 合 に よっ て は 後 
ろ の 複合 文 が 一 度 も 実行 きれ な いこ と が あり ます 。 
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while 


while 式 


(5) until 文 


until 文 も 繰り 返し を 行う た め の 文 で , 構文 は 次 の よう 
に な っ て いま す 。 


until 文 は まず until の 前 の 複 
合 文 を 実行 し , その 後に 式 の 計 
算 や 行い ます 。 そ し て 結果 が ゼ 
ロ ( 偽 ) な ら る さらに も う 一 度 until 
の 前 の 複合 文 を 実行 し , 結果 が 
ゼロ 以外 ( 真 ) な 6 繰り 返し を 
終え ます 。 


208 


7-3 5Sze/ar の 構文 と 六法 


(6) for 文 
for 文 の 構文 は 次 の 通り で す 。 


for 文 


for 制御 変数 := 式 | +o 式 2 for 制御 変数 := 式 | fo 式 2 by 式 3 
{( 交 1| 交 2 室 m } { 棄 | 2 忘 次 m) 


制御 変数 一 


制御 変数 +Tfemp3 


注 ) temp2, femp3 は 一 時 記憶 の た め の ワ ー ク 。 


for 文 は 流れ 図 で は 図 1-7 の よう に な り ま す 。for の 
次 の 変数 を 特に 制御 変数 し いい ます 。 : の 後 の 式 を 初 
期 値 。 to の 後 の 式 を 終値 と し て , 制御 変数 が 
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制御 変数 の 値 > 終値 


ある い は 


制御 変数 の 値 = 256 


と な る ま て 繰り 返し ます 。 こ の し とき, byY 式 の 増分 が 指 
定 さ れ て いれ ば 制御 変数 に その 増分 を 加算 し , 増分 の 指 
定 が な けれ ば 制御 変数 を 十 1 し ます 。 

for 文 で は 初期 値 , 終値 , 増分 を 示す 各 式 を 繰り 返し の 
前 に 計算 し ます 。 初 期 値 は 制御 変数 に 代入 きれ , 終値 , 
増分 は メモ リ 上 の 一 時 記憶 領域 に 記憶 し ます 。 繰り 返し 
の 途中 は その 領域 に 記憶 し た 値 を 使い ます 。 

Stellar の 場合 , 変数 は 1 バイ ト 長 ど だ け な の で , 繰り 返 
し 回 数 の 最大 は 


for 変数 名 :=0to255 


と し た と き の 256 回 で す 。 


(⑦) 1oop 文 
loop 文 は 指定 され た 回 数 を 単純 に 繰り 返す だ け の 文 
で , 構文 は 次 の よう に な っ て いま す 。 


loop 文 を 流れ 図 で 表す と 図 1-8 の よう に な り ま す 。 
単純 な 繰り 返し な ら for 文 より も loop 文 の ほう が コン 
パイ ル 後 の オプ ジェ クト ・ コ ユー ド が 少な てく て すみ ます 。 
特に 制御 変数 名 の 代わ り に # を 使う と B レ ジス タ で ルー 
プ す る よう な オブジェ クト ・ コ ー ド が つく られ る た だ め , 
きら に 効率 が よく な り ま す 。 
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loop 文 


loop 制御 変数 , 式 ( 文 | 文 2 … 文 n ) 


制御 変数 一 式 


loop #, ョ 


レジ スタ B 一 | 


(8) goto 文 
ラベ ル が 書か れ て いる 文 に 実行 を 移し ます 。 


(9) exit 文 
複合 文 や while 文 , until 文 , for 文 , loop 文 の 繰り 返 
し か ら 抜 け 出 ある と き に 使い ます 。 


eX 計 文 


秒 
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例 


while i<100 ( 


eee Me 注 ) 
eXit 文 が 実行 され る と 
矢印 の 先 の 文 へ 実行 を 
移す 。 


⑩0) return 文 
関数 の 実行 を 終わ り , 呼び 出し た 主 プ ログ ラム や 関数 
に 戻る と き に 使い ます 。 


return 文 
導 


関数 の 最後 の return 文 は 省略 し て も 自動 的 に 挿入 き 
れ ま す 。 ま た , 主 プ ログ ラム 内 の return 文 は stop 文 と 同 
じ 意 味 で す 。 


(10stop 文 
プロ グラ ム を 終了 る せる た め の 文 で す 。 
sfoP 文 


主 プ ログ ラム の 最後 の stop 文 は 省略 し て も 自動 的 に 
挿入 る れ ま す 。 
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(12inline 文 
inline 文 は ブロ グラ ム 中 に 機械 語 命令 や デー タ を 入れ 
る た め の 文 で , 構文 は 次 の 通り で す 。 


inline 女 


(インデックス 操作 文 

イン デック ス 操 作文 は 二 つ の イ 
ン デ ックス ・ レ ジス タ 1X,IY を 操 
作 す る た め の 文 で , 次 に 示す よう 
な 打つ の 文 が あり ます 。 


イン デック ス 操作 文 


① set 文 
set 文 は イン デック ス ・ レ ジス タ に 定数 や 値 を セッ ト 
する 文 で す 。 


定数 し イン デック ス ・ レ ジス タ は 16 ビ ッ ト 長 で 扱わ れ 
ます 。 式 は 8 ビッ ト 長 で 計算 きれ, イン デック ス ・ レ ジ 
スタ の 値 (16 ビ ッ ト 長 ) に 加算 また は 減算 る れ ま す 。 
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例 
set ix : 三 $3F2C : 
set iy : = ニ 258 十 a/3 : 
set ix : ニ jwーD*2: 


Set ix : Iix 十 3 : 
Set iy : 三 IX : 
② Idx 文 
ldx 文 は イン デック ス ・ レ ジス タ に 変数 の 値 を ロー ド 
する 須 で す 。 


この 文 に より イン デック ス ・ レ ジス タ の 下位 8 ビッ ト 
に は 変数 の 値 が , 上 位 8 ビッ ト に は 変数 の 次 の アド レス 
の 値 が ロー ド さ れ ま す 。1ldx 文 と 次 の stx 文 び けが 変数 
を 16 ビ ッ ト 長 で 扱い ます 。 

例 


Var WVy,X, Y,Z| 2 |: と 宣言 され て いる も の と し て 
Idx ix: ニ xi: 
ldx iy: =y[2] 
を 実行 し た 場合 , イン デック ス ・ レ ジス タ に は 次 の 
よう に メモ リ の 内 容 が ロー ド さ れる 。 
Ww X y ツ z 


タモ | , 認 、|. 記 統 中 | 
ーー 「 
ix 
交 。。 入 
y 世 全市 
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③ stx 文 
stx 文 は イン デック ス ・ レ ジス タ の 値 を 変数 に スト ア 
する 大 で す 。 


この 文 に より イン デック ス ・ レ ジス タ の 下位 8 ビット 
が 変数 へ , 上 位 8 ビッ ト が 変数 の 次 の アド レス ヘ へ スト ア 
る れ ま す 。 

例 


Var a,b[ 3 ],c,d: と 宣言 され て いる も の と し て 
Stx a: 三 IiX: 
stx b[3]:=iy: 
を 実行 し た 場合 , 次 の よう に メモ リ に イン デック ス ・ 
レジ スタ の 内 容 が スト ア さ れる 。 


ii 
EE 
ei 
ix 民主 因 
| 
y 服 間 剛 
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④ inx 文 , dex 文 
inx 文 は 指定 し た イン デック ス ・ レ ジス タ の 値 を 十 1 
も 。 dex 文 は 一 1 し 落す 。 


(⑭⑳ コ ン パ イル 制御 文 
コンパイル 制御 文 に は , %tron, %troff, %break, % 
include の 四 つ の 文 が あり ます 。 


コン バイ ル 制 御 文 


注 ) 定義 と 宣言 の 中 に は % breqk は 春 け な い 。 


26tron, %troff,%break は ゲロ グラ ム の デバ ッ グ の 
た め の 文 で 。 デ バッ グ ・ モ ー ド で コン パイ ル し だ たと きだ 
け 有 効 に な り ま す 。 こ の うち , %tron, %troff は ブログ 
ラム の トレ ー ス に 関す る 文 で , %tron を 指定 する と プロ 
グラ ム の 実行 状態 が 追跡 び で きる よう な オブジェ クト ・ コ 
ー ド を 生成 し ,%troff が 指定 され る まで 続き ます 。% 
tron に よっ て 生成 され る コー ド は , 実行 し た 行 番号 ある 
い は 関数 名 を 表示 する も の で , 行 番号 は 


[ 行 番号 ] ] 
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(関数 名 ) 
と 表示 し ます 。 


%break は ゲロ グラ ム を 一 時 的 に 中 断 す る 文 で . これ 
を 実行 する と 


関数 名 は 


** break in 行 番号 | 


と 表示 し て 実行 を 中 断 し ます 。 中断 し た プロ グラ ム は 再 
開 さ きせ る こと が で きま す 。%tron, %troff, %break は 現 
在 の と ころ , PC-8801 バ ー ジ ョ ン と MSX バー ジョ ン だ 
け で サポ ー ト し て いま す 。 

%include は 指定 され た ファ イル を ソー ス ・ プ ログ ラ 
ム の 一 部 と し て 読み 込む た め の 文 で , ライ ブラ リ を 読み 
込む の に 使い ます 。%include は 現在 , CP プ M バ パー ジョ 
ン だ け で サポ ー ト する 機能 で , ファ イル 名 は CP プ M の 
規則 に 従い ます 。 PC-8801 ヾ バー ジョ ン , MSX バー ジョ ン 
で % include を 使う と エラ ー に な り ま す 。 


〔 4 〕 式 
Stellar の 式 は すべ て 8 ビッ ト 長 で 演算 きれ ます 。 演 算 
は 論理 , 関係 , 算術 の 三 つ に 分 類 さ きれ , 次 の よう な 構文 
に な っ て いま す 。 
(1) 演 算 子 と 演算 
演算 子 は 25 個 あり , それ ぞ れ 次 に 示す よう な 演算 を 行 
いま す 。 
① 論 理 演算 子 
論理 演算 子 は ゲー ル 演 算 や ビッ ト 操 作 を 行い ます 。 


論理 演算 は 各 ビ ッ ト ご と に 演算 が 行わ れ ま す 。 217 
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② 関 係 演算 子 
関係 演算 子 は 二 つ の 値 を 比較 する た め の も の で す 。 
| 00200GS 等 し い 
に と っ 蘭 の と 等 し く な い 
EARKDMRGC KG 大 きい 
= の eentozceSwoxocsyysns 大 きい か 等 し い 
トト 小さ い 
samedeefeda* 小さ いか 等 し い 


関係 演算 子 は 符号 な し の 2 進 整数 で 比較 を 行い , 結果 


が 真 の と き 255, 偽 の と き 0 の 値 が 得 ら れ ま す 。 


③ 算 術 演算 子 
算術 演算 子 に は 次 の も ぁゃ の が あり ます 。 
ii 加算 
ーーー SPPRMeWRPieow 減算 
単項 ee 2 の 補 数 は と ら な い ( 何 も し な い ) 
溢 順 | comoewo 2 の 補 数 を と る 
NPG6EMCGYCOpGiR93 乗算 
グ AGwiawDeipes の SS 除算 
レス Op 剰 算 
PUS one キャ リー フラ グ を 含め た 加算 
| "inus CGNprey キャ リー フラ グ を 含め た 減算 


算術 演算 は 符号 な し の 2 進 整数 で 行わ れ ま す 。 
④ そ の 他 の 演算 子 
演算 子 と し て は その 他 に , シフ ト と 代入 が あり ます 。 


< 秋生 左 シ フ ト (くく < の 右辺 の 値 で 左辺 
の 値 を 論理 左 シ フト する ) 

mmmstvessozoee 右 シ フト (>> の 右辺 の 値 で 左辺 
の 値 を 論理 右 シフ ト す る ) 

一 科 ツア 代入 (:= の 右辺 の 値 を 左辺 へ 代 
入 す る ) 
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(2 演算 の 優先 順位 
演算 は 次 の 優先 順位 に よっ て 行わ れ ま す 。 
高 。1. ( ) や [ ] の 中 の 式 , : = の 右辺 , 関数 


2 . 単項 の 十 一 

3。  / 6 さて テテ っ 
4. 十 一 plus minus 

5. 三 くく > > > くく マテ 
6 . not 

7 。 and 


低 8. orxor 
同 順位 の 演算 は 左 か 6 右 へ 行わ れ ま す 。 
例 


q:= ニ |+ す b:= ニ cd*z2 


| ! 


③ 
④ 
⑤ 


演算 は ひつ ⑤ の 順に 行わ れ ま す 。 


(3) カ ンマ 式 
カン マ で 式 の 構文 は 次 の 通り で す 。 


カン マ ( ,) で 区 切ら れ だ カッコ 内 の 式 は 左 か ら 6 右 へ 
計算 され , 最 右 の 式 の 値 が カン マ 式 の 値 と な り ま す 。 


7-3 5Sze/ar の 世 入 と 区 法 


例 


XS 呈 (as bs 三 5、 qa 土 b) 
a に | b に 5 を 代入 し , a+b を 計算 する 。 
a+b が カン マ 式 の 結果 と な り x に 代入 され る 。 つま 
り , xX に は 6 が 代入 され る 。 


(④ 条 件 演算 関数 
- 条 件 演算 関数 と は 式 の 中 に 書け る if 文 と いう よう な 
も の で , 次 の よう な 構文 を し て いま す 。 


条件 演算 関数 
(の ひひ 1 ま (CD 和 1 ま 上 て しま ト ( ツ 


カッ コ 内 に は 三 つ の 式 が 書か が れ , セミ コロ ン (:) と 
カン マ ( ,) に よっ て 区 切ら れ ま す 。 第 一 の 式 が 条件 を 
表す 式 で , 計算 結果 が ゼロ 以外 ( 真 ) の と き 第 二 の 式 を 
計算 し , 関数 の 値 と し ます 。 第 一 の 式 の 計算 結果 が ゼロ 
( 偽 ) な ら 6 第 三 の 式 を 計算 し 関数 値 と し ます 。 図 1-9 は 
これ を 流れ 図 で 表し た も の で す 。 
例 


hexl:= ?((h:=h & S$f)<I0:hih 二 7) 十 "0' 
変数 h の 下位 4 ビッ ト を | 文字 の 16 進 数 に 変換 し , 
hex 1 へ 代入 する 。 


条件 演算 関数 


式 3 を 計算 し その 値 式 2 を 計算 し その 値 
を 関数 の 値 と する を 関数 の 値 と する 
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5) 組み込み 関数 

Stellar で は 次 の 13 個 の 組み 込み 関数 を 持っ て いま す 。 

inc( 変 数 名 ) ……… 変数 の 内 容 を 十 1 し , 十 1 し た 値 
を 関数 の 値 と する 。 こ れ は (変数 
名 : 三 変数 名 十 1 ) と 同じ 。 

dec( 変 数 名 ) ……… 変 数 の 内 容 を ー 1 し , 一 1 し た 値 
を 関数 の 値 と する 。 こ れ は (変数 
名 ・ 三 変数 名 一 1) と 同じ 。 


rle( 式 。) cmmmme 式 の 計算 結果 を 左 へ 1 ビット 回 転 
る せる 。 
に Ji 還 
1 ビッ ト 回 転 
rre( 式 。) ……… 式 の 計算 結果 を 右 へ 1 ビッ ト 回 転 
させ る 。 


『 間 国交 


1 ピット 回 転 


r( 式 ) で it 式 の 計算 結果 を 左 ベ へ キャ リー フラ 
グ も 含め て 1 ピッ ト 回 転 きせ る 。 


| fr b: 旨 
cg 間 還 題 圏 画 | 


1 ピット 回 転 


に 


4 入 ま は ee 式 の 計算 結果 を 右 へ キャ リー フラ 
グ も 含め て 1] ビット 回 転 き せる 。 
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ro TrTT 半 箇 


コ 


1 ピット 回 転 
STa( 式 ) mm 式 の 計算 結果 を 右 へ 1 ビッ ト 算 術 


右 シ フト する 。 
b: 
sr の 動作 陳 | 
b7 は 不変 


decj( 式 ) …… 式 の 計算 結果 を 10 進 数 2 桁 
(BCD) に 補正 する 。 

earTY( ) ……… 現在 の キャ リー フラ グ (CY) の 値 
を 求め る 。 CY= 1 な ら 6255, CY= 
0 な 6 0 が 関数 値 。 

carry( 式 )…… 式 計算 後 の キ ャ リー フラ グ の 値 を 
求め る 。CY= 1 な ら 6255, CY= 0 
な ら 0 が 関数 値 。 

zero( )……… … 現 在 の せ で ロ ・ フ ラグ (Z) の 値 を 求 
め る 。Z ニ 1 なら 6255,Z ニ 0 な ら 
0 が 関数 値 。 

Zero( 式 ) …… 式 計算 後 の ぜ ロ ・ フ ラグ (Z) の 値 
を 求め る 。Z ク ニー ニ 1 なら 6255, Z ク =0 
な ら 0 が 関数 値 。 

間 層 Neemewos 現在 の サイ ン ・ フ ラグ (S) の 値 を 
求め る 。S ニ 1 な ら 6255, S=0 な 
6 0 が 関数 値 。 

sign( 式 ) …… 式 計算 後 の サ イン ・ フ ラグ の 値 を 
求め る 。S ニ 1 な ら 6255,S=0 な 
ら 6 0 が 関数 値 。 

parity( ) ……… 現在 の P ン フラ グ の 値 を 求め る 。 
PV ニ 1 な ら 6255, PV=0 な 
ら 6 0 が 関数 値 。 


FTLTT 拉 


1 ピッ トシ フト 
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parity( 式 ) … 式 計算 後 の P プ V フ ラグ の 値 を 求 
め る 。 PV ニ = ニ 1 な 6255,。 P グ 
V=0 な ら 0 が 関数 値 。 

overflow( ) …… parity( ) と 同じ 。 

overflow( 式 )…parity ( 式 ) と 同じ 。 


(⑥ 関 数 の 呼び 出し 
関数 の 呼び 出し の 構文 は 次 の 通り で す 。 


関数 の 呼び 出し 


注 ) 関数 名 と 左 カ ッ コ “(" の 間 に 空 白 以 外 の 分 離 符 を 入れ て は な ら な い 。 


実 引数 に は 8 ビッ ト 長 と 16 ビ ッ ト 長 の 二 種 類 が あり , 
実 引数 の 値 が 関数 に 渡る きれ ます 。 セ ミコ ロン (:) より 
前 が 8 ビッ ト 長 の 実 引数 で , 0 一 32 個 の 式 が 書け ます 。 
セミ コロ ン よ り 後 が 16 ビ ッ ト 長 の 実 引数 で だ , イン デック 
ス ・ レ ジス タ 名 や 定数 式 を 書き ます 。 関 数 の 呼び 出し で 
書か れる 実 引数 は 次 の よう な 意味 を 持っ て いま す 。 


順序 は 変え られ な い 
関数 名 ( 式 |, 式 2, …, 式 h : IX また は 定数 式 , iy また は 定数 式 ) 


実 引数 の 数 は 0 一 32 個 , 仮 引数 の 数 と 特に 合 イン デック ス ・ レ ジス タ iy の 値 や 
わせ る 必要 は な い 。 引 数 の 数 が 合わ な い 場 合 定数 式 の 値 を 関数 へ 送る 。 た 
関数 側 で 次 の よう な 処理 を 行う 。 だ し , 呼び 出さ れる 関数 の 豆 
の 書き で |6 ビ ピット 長 の 値 を iy で 
@ 仮 引数 の 数 > 実 引数 の 数 の 場合 1 拓 か 5 近 TEU 
呼び 出し 側 funci (qa. b+c, d) いと 送ら れ な い 。 
何 が 入 い る か 
わか ら な い 。 


し ー ぁ イン デック ス ・ レ ジス タ IiX に つい 


関数 側 func」 (U。Y,。w, X,y, Z) て 上 と 同様 。 
念 仮 引数 の 数 < 実 引数 の 数 の 場合 
呼び 出し 側 func2 (q、b, c, d/e, †f) 


関数 側 func2 (x。 y, z) 
無視 され る 。 
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(⑦) 関 数 の 値 の 渡し か た 
関数 の 値 は return 文 の 一 つ 前 に 実行 し た 式 の 値 と な 


り ます 。 
だ た と えば 仮 引数 a, b, c の 合計 を 関数 の 値 と する 関数 


は , 


add3 (a, b, c) 
( 

a 十 b 十 c: 
) 


と な り ま す 。 次 の 例 は , IX が 示す n バ イト の メモ リ の 中 
か ら X と 等 し いも の を 探し 出す 関数 で , 等 し いも の が あ 
れ ば を その 位置 を , 等 し いも の が な い 場 合 は $FF を 関数 
の 値 と し て 戻し ます 。 


Sear (n,X :iX) : 
Vari: 
( 
if n=0 then { 
$ ff ・ 
return : 
) 
fori: 三 0 to nー1 〔 
if memory[| ix 士 | ニ x then ( 


return : 


$ ff 


225 


〔 5 〕 変数 と 定数 
式 の 中 に 使わ れる 変数 や 定数 の 構文 は 次 の よう に な っ 
て いま す 。 


注 1) ラベ ル 名 , 関数 名 は , デー 
タ 宣 言 部 や inline 文 の 中 
で の み 使 用 可能 。 

注 2) 関数 名 と 左 カ ッ コ "(", そ し 
て 右 カ ッ コ ”)” の 間 に 空 白 
以外 の 分 離 待 を た 入れ て は な 
ら な い 。 
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(1 変数 

変数 と し て 扱う も の に は , 変数 宣言 部 で 宣言 し た 変数 
名 。 デー タ 宣 言 部 で 宣言 し た デー タ 名 , そし て memory 
配列 と port 配列 で す 。 デ ー タ 名 は : の 左辺 に 置い て 値 
を 代入 する こと は で きま せん 。 

変数 名 , デー タ 名 の 後に は [ 式 ] を つけ て 相対 的 
な 参照 。 代入 (代入 は 変数 名 の み ) が 行え ます 。[ ] 内 の 
式 が 変数 ある あるいは デ ー タ か ら の オフ セッ ト で 0-255 ま 
で の 値 と な り ま す 。 図 1-10 が 相対 的 に アク セス で きる 範 
囲 を 表し た 図 で す 。 
相対 的 に アク セス で きる 重 囲 


オフ セッ ト 0 0 10 0200 iiiis 254 255 
す - 直 9 し 
メモ リ 
ォ ーーーー ーーーー を 
低 ア ドレ ス 256 バ イト 高 ア ドレ ス 


⑯ メ モリ 上 | | の 部 分 が 相対 的 に アク セス で きる 範囲 。 


var a,b[2| ,c,d[3] ,e : 
( 
b : =d[1| :=$1d: 
c[3] :=a[5] 一 8 : 


) 


この 例 の 場合 , 変数 宣言 部 で は 変数 は メモ リ 上 に 次 の 
よう に 割り つけ られ ます 。 


ace は それ ぞ れ 1 バイ ト , b は b [2 ] と 定 言 され 
て いる の で 2 バイト , d は d [ 3] と 宣言 され て いる の 
で 3 バイト 取ら れ ま す 。 

この 例 を 実行 する と メモ リ 上 の 値 は 次 の よう に な り ま 
す .5 
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b こい d の 変数 名 の み で アク セス 


」 1 ! ! yi 
前 引 . | _ [」 phs で きる 位置 


et ec HO DO RIOInOIEO eO・ … q(255〕 
b(O bCD DO b(3) bco DO by … b(255〕 


変数 名 の 後に 
af c( リ ce) ESJIc の … て 〔255〕 : 〔 式 ) を 付け て アク 


セス で きる 位置 。 
d〔0) d(2〕 d(3) … d(255〕 
1 


e〔0〕 … e〔255]〕 
た と えば , e〔0〕, d〔3〕, c〔4], b (6),q (7) は いずれ も 変数 6 を アク セス する 。 


memory 配列 は CPU の 全 メ モリ 空間 64K バ イト に 対 
し て 自由 に 参照 。 代入 する た め の も の で , 二 つ の 形式 が 
あり ます 。 


memory | 式 1, 式 2 ] | 


式 1 の 値 を 上 位 バ イト と し , 式 2 の 値 を 下位 バイ ト に 
し て メモ リ の アド レス を 設定 し 参照 , 代入 を 行い ます 。 


memory [| イン デック ス ・ レ ジス タ 名 , 定数 ] 」 


この 形式 は イン デック ス ・ レ ジス タ (IX, IY) を 使う 
も の で す 。 基 本 的 な 使用 法 は 上 記 の よう に , 初め に イン 
デック ス ・ レ ジス タ 名 (IX, IY) を 書き , 次 に 定数 を 書 
きま す 。 

イン デック ス ・ レ ジス タ 名 の 後に 正 符号 ( 十 ) また は 
負 符 号 (一 ) を つけ る と 参照 。 代入 を 行っ た 後 , イン デ 
ックス ・ レ ジス タ の 値 を 正 符号 ( 十 ) で 十 1 , 負 符 号 (一 ) 
で 1 し ます 。 

定数 は 符号 を つけ な い 場 合 で 0 一 127 ま で の 整数 , 符号 
を つけ た 場合 で ー128 一 十 127 ま で の 整数 し な り ま す 。 定 
数 の 値 が で ロ の 場合 , 


memory [| イン デック ス ・ レ ジス タ 名 ] 


と 書い て も か まい ませ ん 。 こ の 定数 の こと を ディ スプ レン 
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イス メン ト と いい , この 定数 に より イン デック ス ・ レ ジ 
スタ が 示す アド レス を 中 心 に 一 128 一 十 127 バ イト が アク 
も セス で きる よう に な り ま す ( 図 1-11)。 また だ, memory? 
の 代わ り に @ と 書く こと が で きま す 。 

port 配列 は , 1I プ O ポ ボート 256 バ イト に 対し て 参照, 
代入 を 行う も の で す 。 同様 に port* の 代わ り に @@ と し と 書 
く 《 こ と が で きま す 。 
回 放 馬 ディ スプ レイ スメント と アク セス で きる 範囲 

ディ スプ レイ スメント 


メモ リ 


じゃ ーー 
低 ア ドレ ス 256 バ イト 


@ メ モリ 上 の 部 分 が アク セス で きる 範囲 。 


(2 定数 

定数 と し て は 次 の よう な も の が あり ます 。 

人 @10 進 数 0 一 65535 ま で の 正 の 整数 。 

念 16 進 数 $ を 頭 に つけ た 0 一 FFFF まで の 16 進 数 。 

人 @ 文 字 1 文字 を 引用 符 ( ) で 囲ん だ も の 。 

念 定数 名 定数 定義 部 で 定義 し た と き , 値 に つけ た 名 
前 。 

@ ア ドレ ス 定数 名 , デー タ 名 , ラベ ル 名 , 関数 名 の 頭 
に ピリ オド ( .) を つけ る と その アド レス 
が 定数 と な り ま す 。 

信 表 意 定数 コン パイ ラ が 自動 的 に 定義 する 大 域 的 な 定 
数 名 の こと で す 。 表意 定 数 に は 次 の 三 つ の 


も の が あり ます 。 
WWOTK eo ラン タイ ム ・ ル ー チ ン の ワー ク ・ 
エリ ア の 先頭 アド レス 。 
WP cinenooerasGpeos 変数 エリ ア の 先頭 アド レス 。 
_eod6 0………… オプ ジェ クト ・ プ ログ ラム の 先頭 
アド レス 。 
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@ ロ ケー ショ ン ・ カ ウン タ の 値 $ の 後 が 16 進 数 以外 の 
文字 な ら , その $ は 湊 の 生成 する オブ ジェ 
クト ・ コ ユー ド の アド レス を 示し ます 。 

定数 は 基本 的 に は 16 ビ ッ ト の 値 を 取り ます 。 た だ し , 

式 な ど で 使う 場合 , 定数 は 8 ビット 長 の 値 (10 進 数 で 0 

ー255, 16 進 数 で 0 -FF) で な けれ ば な り ま せん 。 も し 9 

ビッ ト 以 上 の 値 (10 進 数 で 256 一 65535, 16 進 数 で は 

100-FFFF) だ と エラ ー に な り ま す 。 そ の よう な 場合 

定数 の 前 に hi また は 1oW と 書け ば 上 位 ま た は 下位 の 

8 ビッ ト だ け を 定数 と する こと が で きま す 。 

た と え ぇ ば 変数 abc の アド レス が 16 進 数 で A25C の と 

き , low. abc と する と この 値 は 16 進 数 で 5C と な り , hi. 

abc で は 16 進 数 で A2 と な り ま す 。 


/ー プ エ テ エラー メッセー ジ 


ユン パイ ラ 中 に 表示 きれ る エラ ー メ ッ セ ー ジ は , 次 の 
と お り で す 。 


〔 1 〕) 各 バ ー ジ ョ ン 共 通 の メッ セー ジ 
1 . 行 番号 : Missing variable name : 変数 名 
内 容 : 指定 され た 変数 名 が 見 つか ら な い 。 
動作 : アド レス が ゼロ の 全域 的 な 変数 と し て 処理 を 続 
ける 。 
2. 行 番号 : Missing constant name : 定数 名 
内 容 : 指定 され た 定数 名 が 見 つか ら な い 。 
動作 : 値 が で ロ の 全域 的 な 定数 名 と し て 処理 を 続け る 。 
3 . 行 番号 : Bad option switch 
内 容 : オプ ショ ン ・ ス イッ チ の 指定 が 悪い 。 
動作 : アボ ー ト 
4. 行 番号 : Illegal function name : 名 前 
内 容 : 不法 な 関数 名 で 関数 を 宣言 し よう と し た 。 
動作 : 名 前 が 予約 語 や 定数 な ら ア ボー ト 。 二 重 宣言 な 
ら その 名 前 で シン ボル ・ テ ー ブ プル (記号 表 ) へ 
再 登録 し 処理 を 続け る 。 
5. 行 番号 : Ilegal name : 名 前 
内 容 : 不法 な 名 前 で 定数 名 関数 名 を 定義 あるいは 宣 
放し まう 上 洪 。 
動作 : 名 前 が 予約 語 や 定数 な ら ア ボー ト 。 二 重定 義 , 
宣言 な ら そ の 名 前 で シン ボル ・ テ ー ブ ル へ 再 登 
録 し 処理 を 続け る 。 
6 . 行 番号 : Ilegal label : ラベ ル 
内 容 : 不法 な 名 前 で ラベ ル を 定義 し よう と し た ( 二 重 
定義 な ど )。 
動作 : その 名 前 で シン ボル ・ テ ー ブ ル へ 登録 きれ る 。 
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7 . 行 番号 : Bad string data 
内 容 : 文字 列 定数 の 指定 が な い (文字 列 の 右 の ” が な 
いま ま 行 が 終わ っ て いる )。 
動作 : 文字 列 定数 の 右 に 二 重 引用 符 (^) が ある も の と 
し て 処理 を 続け る 。 
8. 行 番号 : Too many arguments 
内 容 : 実 引数 の 数 が 32 個 以上 定義 きれ て いる 。 
動作 : 処理 を 続け る 。 
9. 行 番号 : Illegal character : 文字 
内 容 : 字句 と し て 認め られ な い 文 字 が ある 。 
動作 : アボ ー ト 
10.? : Undefined label : ラベ ル 
内 容 : 未定 義 な ラベ ル が ある 。 
動作 : 処理 を 続け る 。 
11. ? : Undefined function name : 関数 名 
内 容 : 未定 義 な 関数 名 が ある 。 
動作 : 処理 を 続け る 。 
12. 行 番号 : legal constant : 定数 
/ displacement 
/ Over range 
内 容 : 不法 な 定数 が 指定 され た だ 。 定 数値 。 displace- 
ment, over range の いずれ か が 表示 され る 。 
動作 : 値 セ を ぜ ロ に し て 処理 を 続け る 。 
13. 行 番号 : Bad constant 
内 容 : 定数 の 指定 が 悪い 。 
動作 : アボ ー ト 
14. 行 番号 : Bad address constant 
内 容 : アド レス 定数 の 指定 が 悪い 。 ま た は 指定 が で き 
な いと ころ で アド ンス 定数 を 指定 し た 。 
動作 : アボ ー ト 
15. 行 番号 : Syntax error 
内 容 : 構文 が 正しく な い 。 を その他 の エラ ー。 
動作 : アボ ー ト 


7-4 エエ ラー メッセ モー ジ 


16. 行 番号 : Bad index operation 
内 容 : インデ ックス 操作 文 が 正しく な い 。 
動作 : アボ ー ト 

17. 行 番号 : Bad expression 
内 容 : 式 が 正しく な い 。 


動作 : アボ ー ト 
18. 9 Aboat 
内 容 : アボ ー ト 


動作 : コン パイ ル を 異常 終了 る せる 。 


【 2 ) CCP プ M バ パー ジョ ン で だ け 表 示さ れる エラ ー メ ッ 
セー ジ 
これ ら の うち , 1 一 7 の エラ ー が 発生 する と コン パイ 

ル を 中 止 する 。 8, 9 の エラ ー は 発生 する と アボ ー ト す 

る 。10 は エラ ー で は な く (警告 で ある 。 

1. %Nosourcefile … 該 当 す る ソー ス ・ フ ァイル が 
な い 。 

2. % Nodirectory space … デ イス ク の ディ レク トリ 
領域 に 空き が な い の で 新しい ファ イル が つく れ な 


い 。 

3. % Disk full … デ ィ ス ク に 空き が な い の で ファ イル 
が 出力 で き な い 。 

4.%Cannotclosee … オ ー プ ン し だ ファ イル が クロ ー 
ズ で き な い 。 


5. %Badsourcefile … 入 力 し た ソー ス ・ プ ログ ラム 
が 正しく て ない 。 

6 . %Bad file name … 指 定 さ きれ た ファ イル 名 が 正 し 
《 な い 。 

7 . %Symbol table overflow … シ ン ボ ル ・ テ ー ブ ル 
が オー バー フロ ー し だ 。 

8. 行 番号 : Bad include filemame …%include で 指 
定 さ れ た ファ イル 名 が 正しく な い 。 

9. 行 番号 : No include file …%include で 指定 され 
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だ た ファ イル が な い 。 
10. 行 番号 : Non supporting(warning) %break 
/ % tron 
/ 9 troff 
… サ ポー ト し て いな い 文 を 使用 し た 。 


【 3 〕 PC-8801 バ ー ジ ョ ン で だ け 表 示さ れる エラ ー メ ッ 

セー ジ 
1, 2, 4 の エラ ー が 発生 する と コン パイ ル を 中 止 す 

る 。 3 の エラ ー が 発生 する と アボ ー ト する 。 

1. %ODbject area full … オ ブ ジ ェクト ・ プ ログ ラム 
を 出力 する 領域 が いっ ぱい に な っ た 。 

2. %Symbol table overflow … シ ン ボ ル ・ テ ー ブ ル 
が 4 ドー ジン ページ ロー し 決 。 

3. 行 番号 :Non supporting : % include …% 
include は す サポ ー ト し て いな い 。 

4. 行 番号 : % Bad souree … ソ ー ス ・ プ ログ ラム の 形 
式 が 正しく な いぼ ど 。 


呈 
で 
由 


$7e//o/ 


NISINIu に 
。 


CP/M 上 で 動作 する Sie 
Ilqr コ ン パ イラ の 使用 
法 を 説明 し , 全 プ ログ 
ラム ・ リ スト を 公開 し 
ます 。 CPM は VZ.P の 使 
用 を 前 提 に し て いま す 。 


グ - / コン ンマ プラ の 倍 粉 送 


CP ZM バ ー ジ ョ ン で Stellar の プロ グラ ム を 開発 す 
る に は , 次 の 二 つ の コマ ンド ・ フ ァイル が 必要 で す 。 

STELLAR.COM… Stellar ユン パイ ラ の 本 体 。 

CONVOBJ.COM… コ ン パ イラ が 出力 し た オブ ジェ ク 

ト ・ フ ァイル を イン テル HEX 形 式 
ファ イル に 変換 する 。 

図 2-1 は Stellar で プロ グラ ム を 開発 する 手順 を 示 
し た も の で す 。 ツ ー ス ・ プ ログ ラム は CP M 上 の エディ 
タ で 作成 し ます 。 Stellar コン パイ ラ (STELLAR.COM) は ソ 
ー ス ・ フ ァイル を 入力 し て オプ ジェ クト ・ プ ログ ラム を 
出力 し ます 。 コ ユン パ イラ は 直接 機械 語 の オプ ジェ クト ・ 
ュー ド を 出力 し ます が , 特殊 な ユー ド を 含ん で いる た だ た め ,。 
この まま で 実行 する こと は で きま せん 。 そこ で , これ を 
実行 可能 に する た め の プ ログ ラム が CONVOBJ. COM で イ 
ン テ ル HEX 形 式 フ ァイル ある い は コマ ンド ・ フ ァイル 
に 変換 し ます 。 


〔 1 ) STELLAR. COM の 実行 
Stellar コン パイ ラ は キー ボー ド か ら 次 の 形式 の 
コマ ンド を 入力 し て 実行 し ます 。 


STELLAR 


〔d : 〕 filename 〔.typ] [〔d :〕) 【〔filename〕 〔.typ〕 


① め ⑳ ⑧ ④ ⑥ 
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① ソ ー ス ・ フ ァイル の ドラ イブ 名 。 省 略 時 は カレ ント ・ 
ドラ イブ 名 と な る 。 

(⑦② ソ ー ス ・ フ ァイル の ファ イル 名 。 省略 で き な い 。 

ソース ・ フ ァイル の ファ イル ・ タ イプ 。 省 略 時 は . S0U 
人 な る 。 

(《⑯ オ プ ブ ジ ェクト ・ フ ァイル の ドラ イブ 名 。⑤ と と も に 省 


2-7 コン イラ の 全 感 法 


CP/W バ ー ジ ョ ン で の プロ グラ ム 開 発 手順 


include に よる 。 


| STELLAR.COW と いう 
コマ ンド ・ フ ァイル 


注 1) オプ ジェ クト ・ コ ー ド 
の 開始 アド レス が |6 進 
で 0100 番 地 の 場 合 の み オプ ジェ クト ・ 
コマ ンド ・ フ ァイル が ファ イル 
つく れる 。 (.OBJ) 


CONVOBJ.COW と いう 
コマ ンド ・ フ ァイル 


デバ パッ ク ・ モ ー ド で コン バ パイル 
され た オプ ジェ クト ・ フ ァイル 
を 入力 し た と き に つく られ る 。 


PROW ラ イタ 


略 さ れ て いる 場合 は ソー ス ・ フ ァイル の ドラ イブ 名 , 
(だ け の 省略 の 場合 は カレ ント ・ ド ライ ブ 名 と な る 。 
オプ ジェ クト ・ フ ァイル の ファ イル 名 。 省 略 時 は ソー 

ス ・ フ ァイル の ファ イル 名 と 同じ 。 
⑯⑥ オ プ ジ ェ クト ・ フ ァイル の ファ イル ・ タ イプ 。 省略 時 
は . 0BJ と な る 。 
この うち ( 〕 で 囲ま れ て いる 内 容 は 省略 で き , [ 選 は 
リタ ー ン ・ キ ー を 押す こと を 示し て いま す 。 ま た , 英 大 
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文字 の 語 は を その まま 入力 する こと を , 英 小 文字 の 語 は そ 
の 語 が 持つ 意味 も を 入力 する こと を 示し ます 。 こ こ で は 説 
明 上 , 大 文字 と 小文字 も 分 け て いま す が , 実際 の 入力 で 
は 大 文字 で も 小文字 で も 構い ませ ん 。 

例 


B >stellar XYzl 有 l … ソ ー ス ・ フ ァイル は カレ ント ・ 
ドラ イブ に ある XYZ.S0U と いう 名 前 の ファ イル 。 
オブ ジェ クト ・ フ ァイル は カレ ント ・ ド ライ ブ 
へ XYZ. 0BJ と いう 名 前 で 出力 。 

A >STELLAR _B:ABC.STE| 有 | … ソ ー ス ・ フ ァイル は 
B ド ライ ブ の ABC.STE と いう 名 前 の ファ イル 。 
オブ ジェ クト ・ フ ァイル は B ド ライ ブ へ ABC. 
0BJ と いう 名 前 で 出力 。 

B >stellar sample1 sp1| 有 | … ソ ー ス ・ フ ァイル は カ 
レン ト ・ ド ライ ブ に ある SAMOLE1.SOU と いう 名 
前 の ファ イル 。 オ ブ ジ ェクト ・ フ ァイル は カレ 
ント ・ ド ライ ブ へ SP1. 0BJ と いう 名 前 で 出力 。 

C >STELLAR SAMPLE2 B :| 有 … ソ ー ス ・ フ ァイル は 
カレ ント ・ ド ライ ブ に ある SAMPLE2.S0U と いう 
名 前 の ファ イル 。 オブジェ クト ・ フ ァイル は B 
ドラ イブ へ SAMPLE2. 0BJ と いう 名 前 で 出力 。 

注 ) 下線 は キー ボー ド か ら の 入力 を 示し ます 。 


Stellar コン パイ ラ は , エラ ー が な けれ ば 決 の よう な メ 
ッ セ ー ジ を 表示 し な が ら コ ン パ イル し ます 。 こ の 例 は 
2-2 の FDUMP.S0U と いう プロ グラ ム を コン パイ ル し 
た 場合 の も の で す 。 


2-7 コン ン パ イラ の 店 盛 法 


B>stellar fdumPp・ 


Stellar compiler Rev 1.01 ( CP/M-80.MSX-DOS Version ) 
Copyright (c) 1984 H.Ohnuki / MIA 


Program name : file_dumP ブロ グラ ム 名 
Function name : Puthex 

Function name : puthex1 

Function name : 9etfile 

Function name : bdoS 


Program 036F (0100-046E) 生成 し た オプ ジェ クト ・ コ ー ド の サイ ズ と アド レス 
Data 004B (4000-404A) 変数 , ワー ク ・ エ リア の サイ ズ と アド レス 


xx End of compile, No error(S) 


[2〕 CONVOBJ.COM の 実行 
CONV0BJ は キー ボー ド か ら 次 の 形式 の コマ ンド を 入 
力 し て 実行 し ます 。 


CONVOB) [d:〕 filename 〔.typ) 
① め ⑳ ⑧ 


① ユ コンパ イラ が 出力 し た オプ ジェ クト ・ フ ァイル の ドラ 
イブ 名 。 省 略 時 は カレ ント ・ ド ライ ブ と な る 。 

《④ コ ュ ン パイ ラ が 出力 し た オプ ジェ クト ・ フ ァイル の ファ 
イル 名 。 省 略 で どき な い 。 

ユン パイ ラ が 出力 し た オブ ジェ クト ・ フ ァイル の ファ 
イル ・ タ イプ 。 省略 時 は .0BJ と な る 。 

CONVOBJ は 指定 され た ファ イル に 収め られ た オブ ジ 
ェクト ・ プ ログ ラム を 読み 込ん で , イン テル HEX 形式 の 
ファ イル を 出力 し ます 。 こ の と き 出 力 フ ァイル は オプ ジ 
ェクト ・ フ ァイル と 同一 の ドラ イブ に , 同一 の ファ イル 
名 (た だ し ファ イル ・ タ イプ を . HEX) で 出力 され ます 。 
加え を て, オブ ジェ クト ・ プ ログ ラム が デバ ッ グ ・ モ ー ド 
で コン パイ ル さ る され て いた と き は , CONVOBJ は 同一 の ドラ 
イブ , 同一 の ファ イル 名 (ファ イル タイ プ を . SYM と し 
て ) で シン ボル ・ フ ァイル を 出力 し ます 。 シンボル ・ フ 
ァイル に は 全域 的 な 名 前 と た その アド レス が 出力 され , 米 
デジ タル リサ ー チ 社 の シン ボリ ッ ク ・ デ バッ ガ (ZSID) で 
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使え る 形式 に な っ て いま す 。 

CONV0BJ は イン テル HEX 形式 で 出力 する 以外 に コマ 
ンド ・ フ ァイル (ファ イル ・ タ イプ が .COM) を 出力 する 
こと も で きま す 。 た だし, この 場合 オグ ジェ クト ・ コ ー 
ド の 開始 アド レス が 16 進 数 で 0100 番 地 か ら で な けれ ば な 
り ませ ん 。CONVOBJ は 終了 時 に ペー ジ 数 を 10 進 数 で 表示 
する の で , SAVE コマ ンド で ディ イス ク に セー ブ す る と き 
は その 数 に し た が いま す 。 

例 

B >CONVOBJ XYZI … カ レン ト ・ ド ライ ブ に ある 
XYZ. 0BJ と いう 名 前 の オブ ジェ クト ・ フ ァイル 
を 入力 し , カレ ント ・ ド ライ ブ に XYZ. HEX と い 
う イ ン テ ル HEX 形式 ファ イル を つく る 。 

A >CONVOBJ B : ABC. 080 | … ド ライ ブ B に ある ABC. 
080 と いう 名 前 の オブ ジェ クト ・ フ ァイル を 入 
力 し , ドラ イブ B に ABC.HEX と いう イン テル 
HEX 形式 の ファ イル を つく る 。 

CONV0BJ は エラ ー が な けれ ば 次 の よう な メッ セー ジ 
を 表示 し な が ら 変 換 し ます 。 こ の 例 は 2-2 の FDUMPF. 
0BJ を 変換 し た 場合 の も の で す 。 


2-7 コン ン 『 イ ラ の 例 盛 流 


P>Convob」fdumP- 


Stellar utility, convert object ==> intel HEX 
Rev 1.00 Copyright (c) 1984 H.Ohnuki / MIA 


Program name : file_dump = 0100 プロ グラ ム の 開始 アド レス 
Function name : puthex = 037D 
Function name : puthexl = 03AE 
Function name : 9getfile = 03EA 
Function name : bdos = 0436 
Constant name : _work = 4000 
Constant name : _var = 4030 表意 定数 の 値 
Constant name : _code = 0100 

Constant name : dfcb = 005C 

Constant name : dbuff = 0080 

Constant name : reclen = 0080 

Constant name : putchr = 0002 

Constant name : Printf = 0009 

Constant name : constf = 000B 全域 的 な 定数 名 の 値 
Constant name : openf = 000F 
Constant name : readf = 0014 
Constant name : on = OOFF 
Constant name : off = 0000 
Variable name : fcb = 005C 
Variable name : buffer = 0080 
Variable name : eof = 4030 
Variable name : bfptr = 4031 有 
Variable name : d = 4032 全域 的 な 変数 の アド レス 
Variable name : 1 = 4033 
Variable name : adr = 4034 
Variable name : ch = 4036 
Data name : Crlf = 020D 
Data name : nofil = 0210 全域 的 な デー タ 名 の アド レス 


関数 の 開始 アド レス 


End addresS  : 046E 生成 し た オプ ジェ クト ・ コ ー ド の エン ド ・ ア ドレ ス 
Program Size : 036F [4 Page ] 生成 し た オプ ジェ クト ・ コ ー ド の サイ ズ , [ ] 内 の 数 が SAVE 
コマ ンド で セー プ す る 場合 の ペー ジ 数 (10 進 数 ) 
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ググ サン ジッ ルル ・ フ セロ グラ ム 


CP ZM バ パ バージョン の Stellar の サン グル ・ プ ログ ラム 
と し て , ファ イル ・ ダ ンプ と ハノイ の 塔 の 二 つ の ブログ 
ラム を 紹介 し ます 。 


[ 1 ) ファ イル ・ ダ ンプ (リス ト 2 -1, 実行 例 2 -1 ) 
ファ イル の 内 容 を 16 進 数 し と 」 IS コー ド で 表示 する プ 
ログ ラム 。 関数 BDOS の 使用 法 に 注意 し て くだ さき るい 。 


[ 2 ] ハ ノイ の 塔 (リス ト 2-2 お よび 2-3, 実 行 例 2 2 ) 
再帰 的 な ゲロ グラ ム と % include の 使用 例 で す 。 リ ス 
ト 2-3 は HO.LIB と いう ファ イル 名 に し て くだ さい 。 ハ 
ノイ の 塔 は 一 種 の パズル で , 下 の 絵 の よ うに 三 本 の 塔 が 
あり , 最初 は え の 塔 に 大 きき の 順に n 枚 の 円 盤 が あり ま 
す 。 次 の 規則 で すべ て の 円 盤 を Z の 塔 に 移し ます 。 
(規則 1 ) 一 度 に 一 枚 の 円 般 し か 移動 で き な い 。 
(規則 2 ) 小さ い 円 般 の 上 に 大 き な 円 盤 は 置け な い 。 


円 盤 に は 上 か ら 1, 
2, …n と 番号 が つ 
けら れ て いる 。 
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2-2 サン ツル ンプ ログ ラム 


⑯ リ スト 2-1 ファ イル ・ ダ ンプ 


/%※ file dumP  ※/ 
file_dump( ): 
dfcb 


dbuff 
reclen 


default fcb メ / 
default buffer メ \/ 
1 record = 128 byte x/ 


人 


oo っ の の ょ の らら 一 


Putchr 
Printf 
conStf 
oOPenf 
readf 


put console character %/ 
print string ※/ 
9get console StatuS  */ 
open file ※/ 
read file ※/ 


0 上 昌 


on 
off 


fcb at ( dfcb ),。 
buffer at ( dbuff ), 
eof , bfptr, d, i、adr[2], ch[16]: 


CrIf: 13.19,"$'。 
nofil: 13,19,"No file$": 


fcb[32] := 9: 

if bdos(openfi.fcb)=$ff then ( 
bdos(printfi.nofil): 
goto exitl: 


} 
eof := offi bfptr := recleni adr[9] := adr[1] := 
while (d:=getfile(),^eof ) 
if (adr[9] & $9f) = 9then( 
bdos(Pprintfi.Cr1f ): 
puthex(adr[1]):puthex(adr[9] ): 
bdos(putchr,」′"): 


1 = ー1 


} 
puthex( d ): 
bdos(putchr,。' 「): 
chLinc(1i)] := ?2(d>=$29 8& d<=$7e ! d>=$al & d<=$Sdfid」!、")5 
1dx iy := adri inx jiyi Stx adr := 1jyi 
if (adr[9] & $9f) = 9 then { 

for d:=9 to 15 ( 

bdos(putchr,ch[d] ) : 
} 
if bdos(constf ) then goto exitli 


} 
exitl: 
bdos(printfi.cr1lf)i 
・ } 


: puthex(h): 
: て 
puthex1l(h>>4): 


puthex1(h): 
(3 】 


puthex1(h): 
は 


bdos(putchr,?2((hi=h & $9f) く <19:h,ht7)+'9'): 


67: getfile(): 
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79: 
89: 
81: 
82: 


if bfptr>=reclen then { 


bfptr := 9: 

if bdos(readfi.fcb) then ( 
eOf := On 
returni 


) 
お 
buffertinc(bfptr ) -1]: 


bdoS(funC.Xi1X、#)* 
Var argn at ( _work )* 
{ 

if argnsl then inline $dd,$e5,$d1: 

else inline $3a,#.x,$5fi 

inline $3a,#.funC,$4f 
inline $cd,#$9995: 
inline $e5、$fd,$e1: 


Push ix : POP de 
1d a,(x) : ld e,a 
1d a,(func)i 1d C,a 
cal1 9995h 


Push hl ・ POP iy 


サン プル ブログ "ラム 


久実 行 例 2-1 ファ イル ・ ダ ンプ の コン パイ ル か ら 実 行 
Bystellar fdump・ 


Stellar compiler Rev 1.01 ( CP/M-80,MSX-DOS Version ) 
Copyright (c) 1984 H.Ohnuki / MIA 


Program mam : 
Function name : 
Function name : 
Function name : 
Function name : 


file_dump 
puthex 
puthex1 
getfile 
bdos 


Program 036F (0100-046E) 
Data 004B (4000-404A) 
XX End Of COmPile, No errOr(S) 
B>convobj fdump・ 


Stellar utility, convert object ==> intel HEX 
Rev 1.00 Copyright (c) 1984 H.Ohnuki / MIA 


Program name: file_dump = 0100 
Function name : puthex = 037D 
Function name : puthexl = 03AE 


3 


Variable name : 
Data name : Crlf = 020D 
Data name : nofil = 0210 


ch = 4036 


End address  : 046E 
・ 036F 〔4 Page ] 
B>Save 4 {fdUMP.CO 弄 * 


B>fdumpP fdUmP.COW・ 


0000 C3 F7 01 C3 
0010 3E 01 C3 43 
0020 01 C3 66 01 
0030 29 30 01 19 
0040 01 7BC9 56 


8 
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リス ト 2-2 ハノイ の 塔 


1 

2: /* tower Of hanol ※/ 

9 

4: PTO9 hano1l( ): 

5: 

6: cons CT := $9d, 

7 1f := $9ai 

8: Var ni 

9: data m51: "tower of hanoi",cr,1f.9、 

19: mS2: 胃 (に 人 : 

11: ( 

12: putsStrT(:i.mS1): 

13: { 

14: Putn1(): putstr(:i.mS2)・ 

15: ) until] (mn:=getchr())>='1) & mn<='9': 

16: ni:=n - 9" 

17: Putn1(2): 

18: move(n・X' ITY Z うい 

19: ) 

20: 

21: %include hio.1ibi 

22: 

23: recurSiVe mmOVe(m,X、Y、Z): 

24: 

25: data mVvmS: "mmOVe "9。 

26: frms: "from “49. 

27: toms: "to "85 

28: ( 

29: if n>1 then 

39: move(n-1,X.Z.Y): 

31: putstr(i .mVmS): putchr(m+'9'): 

32: putstr(:.frmS): Putchr(x): 

33: putstr(:.tomS): putchr(y): 

34: Putn1( ): 

35: moVve(n-1,Z,Y,X): } 

36: else 

37: putstrT(i.mVvms): Putchr(n+'9'): 

38: putstr(i.frms)i Putchr(x): 

39: putstr(i.toms): putchr(y): 
putnl(): } 
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2 ク -2 サン プレ プログ" ラム 


⑯ リ スト 2-3 ハノイ の 塔 入出 カラ イブ プラ リ 


/※※ 

/% tower of hanoi 

/※ 

/※ CP/M console in/out 
/ 


: 9etchT(): 


ona の o の の ょ の (ゆら 一 


bdos(1): 
を 沙 


・ Putchr(X): 


: bdos(2.x): 
: ) 
: Putnl(n)i 
: COnS Cr := $9d, 
1f := $9ai 
: Var pn at ( _work ): 
に 和 (( 
if pns9 then n:=1: 
1ooP #,nt 
bdos(2、cr): 
bdos(2,1f ): 


: PutstT(:ix)i 
2: Var Xi 
半 
es while x:=@[ix+] 
bdos(2.x): 
: } 
貞 表 


: bdo5(func,Xi1X,#): 
Var argn at ( _work ): 


if argn=1 then inline $dd,$e5,$d1: Push ix ) POP de 
else inmline $3a,#.X,$5fi 1d a,(x) i 1d e,a 

inline $3a,#.funmc,$4f i 1d a.(func): 1d C,a 

inline $cd,#$9995: cal1 9995h 

inline $e5.$fd,$el: push hl ) POP 1iy 
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信 実 行 例 2-2 ハノイ の 塔 の コン パイ ル か ら 実 行 


B>stellar hanoi・ 


Stellar compiler Rev 1.01 ( CP/M-80 .MSX-DOS Version ) 
Copyright (c) 1984 H.Ohnuki / MIA 


Program name : hanoi 
XX Include : hio.1ib 
Function name : getchr 
Function name : putchr 
Function name : putnl 
Function name : putstr 
Function name : bdos 
xx End of include 
Function name : mOVe 


Program 0391 (0100-0490) 
Data 003A (4000-4039) 


\%X End Of Compile, No error(S) 
B>convobj hanoi- 


ュ 


Stellar utility, convert object ==> intel HEX 
Rev 1.00 Copyright (c) 1984 H.Ohnuki / MIA 


Program name: hanoi = 0100 
Function name : getchr = 0290 
Function name : putchr 
Function name : putnl = 02D2 


Function name : putstr = 031F 
Function name : bdos = 0357 
Function name : move = 0390 


Constant name : _work = 4000 


Constant name : _var = 4030 
Constant name : _code = 0100 
Constant name : cr = 000D 
Constant name : 1f = 000A 
Variable name : n = 4030 
Data name : mSl = 020D 
Data name : mS2 = 021E 


End address  : 0490 

Program Size : 0391 [ 4 Page ] 
B>save_4 hanol.cOm* 

Byhanoli・ 

tower of hanoi 


N(1.. 9)=?4 


fromXtoZ 
fromXtoYy 
fromZtoY 
fromXtoZ 
from Y toX 
fromYtoZ 
fromXtoZ 
fromXtoY 
fromZtoY 
fromZtoX 
fromYtoX 
fromZtoY 
from X toZ 
from X toY 
fromZtoY 


mmOVe 
mmOVe 
ImOVe 
mmOVe 
mmOVe 
mOVe. 
MOVe 
MOVe 
IOVe 
mMOVe 
OVe 
MOVe 
MOVe 
ImOVe 
MMOVG 


ーー の ー ゥ ら 一 トー ウー の ーー 
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グ _-.② 全 プ ログ ラム ・ ス ト 


ここ で は , STELLAR.COM と CONVOBJ.COM の 全 プ ログ 
ラム ・ リ スト を 公開 し ます 。 


【 1 〕 使用 アセ ンプ ブラ 

ここ で 使用 する アセ ャ ンプ ラ は , CP M 上 で 動作 す る 
米 マ イク ロッソ フト 製 の MACRO-80 V3.44 で す 。 他 の 
アセ ャ ンプ ブラ や V3.44 よ り 前 の バー ジョ ン で は アセ ンプ ブル 
で き な い の で 注意 し て くだ さい 。 


〔 2 〕 STELLAR. COM 
Stellar コン パイ ラ は 次 の 三 つ の ソー ス ・ プ ログ ラム か 
ら な っ て いま す 。 
①STECPM. MAC … 入 出力 な ど , シス テム に 依存 する 処 
理 の 部 分 。CP  M 専 用 (移植 する と き は 新た に つく り 
直す )。 
②STECMP. MAC …Stellar コン パイ ラ の 本 体 。 コ ン パ イ 
ル を 行う 。 シ ステ ム に 依存 し な い (移植 する と き で も 
修正 する 必要 が な い )。 
③ STRUNTIM.MAC … ラ ンタ イム ・ ル ー チ ン 。 オ プ ジ ェ ク 
ト ・ プ ログ ラム の 一 部 と し て 出力 され る 。 シ ステ ム に 
依存 し な い 。 
これ 6 三 つ の ソー ス ・ プ ログ ラム は 次 の 手順 で アセン 
ブル , リン ク さ れ , 一 つの コマ ンド ・ フ ァイル と な り ま 
す 。 図 2-2 に この よう に し て つく られ た STELLAR.COM 
の ファ イル の 構成 を 示し ます 。 
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《 愛 》 STELLAR . COM フ ァイル の 構成 STELLAR .COM の 実行 時 の メモ リ ・ マ ッ プ 


ファ イル の 先頭 


ファ イル の 終わ り 


入出 力 な ど シ ス 
テム に 依存 する 
処理 (STECPA ) 


stellar コン パイ 
ラ 本 体 , コン パ 
イル を 行う 部 分 
(STECAP ) 


ラン タイ ム ・ ル ー チ ン 


(STRUNTIA) 


ファ イル 


sfellar 
コン パイ ラ 


ワー ク * エ リア 。 
シン ボル ・ テ ー ブ ル 


stellar 
コン パイ ラ 
の スタ ッ ク 


BDOS (3.5K) 


ング STELLAR .COA 


CP/MA の CCP に より 
ロー ド さ れる 。 


スタ ッ ク ・ エ リア は IK 
バイ ト 程 度 あ れ ば よい 。 


CP/A シス テム 


| BIOS (I.5K) | ご れ は パー ジョ ン 


注 ) 
2.2 の 64KCP/M の 場合 . 


M80 
M80 
M80 


L 80/P 
SAVE 43 STELLAR.COM 


三 STECPM 

三 STECMP 

ー STRUNTIM 

: 100/D :2600, STECPM, STECMP, STRUNTIM, /E 
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STELLAR.COM は 実行 時 , 図 2-3 の よう に メモ リ を 使 
いま す 。 
(1)STECPM. MAC の 構成 と アセ ンプ ブル ・ リ スト 
この プロ グラ ム は 「 起 動 と 終了 に 関す る 部 分 」 と 「 シ 
ステ ム に 依存 する 処理 を 行う 部 分 」 の 二 つ に 分 けら れ ま 
す 。 


① 起 動 と 終了 に 関す る 部 分 
起動 と 終了 に 関す る 部 分 は , メイ ン 
に 付随 する サブ ルー チン か ら な り ま す 。 
メイ ン ・ ル ー チ ン は ラベ ル start か ら 始 まり , 図 2-4 
の よう な 構成 も し て いま す 。 こ こ で は コン パイ ル の 前 処 


・ ル ー チ ン と それ 


2-3 全 プ ログ ラム ・ ク スル 


メイ ン ・ ル ー チ ン の 構成 


スタ ッ ク の 設定 


オー プ ニ ン グ ・ メ ッ セ ー ジ の 表示 


ワー ク ・ エ リア を ゼロ クリ ア す る 。 


前 処理 
ソー ス ・ フ ァイル , オプ ジェ クト ・ フ ァイル 
を オー プン する 。 


コー ド , デー タ の デフ ォ ル ト の 開始 アド 
レス を 設定 


> こ .AAC の ラベ 
call compil コン パイ の 出す ) 


ファ イル を クロ ー ズ する 。 


生成 し た オプ ジェ クト ・ コ ー ド や 変数 , 
ワー ク ・ エ リア の アド レス , サイ ズ を 表 
示す る 。 


エラ ー 数 な どの 表示 


jp boot 


理 と 後 処理 を 行っ て いま す 。 
メイ ン ・ ル ー チ ン に 付随 する 主 な サブ ルー チン に は 次 
の よう な も の が あり ます 。 
fuchk : レジ スタ HL が 示す 11 文 字 が ファ イル 名 と し 
て 正しい か どう か を チェ ッ ク す る 。 
prs2ad: コー ド あ る い は デー タ の サイ ズ , アド レス を 
表示 する 。 パ パラメータ と 表示 る れる 内 容 は 次 の 
通り 。 


XX……X HHHH (HHHH-HHHH) 
① の ⑧③ ④ 


① レ ジス タ DE が 示す メモ リ に 格納 され て いる 文字 列 。 
文字 列 は '$ "の 前 の 文字 まで 表示 さる れる 。 

④② サ イズ 。BC-HL の 結果 。 

③ 開 始 ア ドレ ス 。 レジ スタ HL の 値 。 

④ 終 了 ア ドレ ス 。 レジ スタ BC の 値 。 
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prhex4: レジ スタ HL の 値 を 16 進 数 4 桁 で 表示 する 。 
prhex2: レジ スタ A の 値 を 16 進 数 2 桁 で 表示 する 。 
prdec5 : レジ スタ HL の 値 を 符号 な し 10 進 整数 で 表示 
する 。 こ の と き , レジ スタ A の 値 で 表示 の し か 
た を 指定 する 。 指定 する 値 は 次 の と お ぉ り 。 
A ニ 0 なら, ゼロ 抑制 な し で 5 桁 固定 長 。 
A ニ 2 なら, ゼロ 抑制 あり で 5 桁 固定 長 。 
A ニ 3 なら, ゼロ 抑制 あり で 1 一 5 桁 の 可変 長 。 


② シ ステ ム に 依存 する 処理 を 行う 部 分 
ここ に 収め られ た シス テム に 依存 する 処理 は STEC 
MP か ら サ ブル ー チ ン と し て 呼び 出る れ ま す 。 他 の パッ 
ュ ン に Stellar コン パイ ラ を 移植 する と き は , この 部 分 
を 修正 し ます 。STECMP 側 か ら 呼 び 出さ れる サブ ルー チ 
ン に は 次 の よう な も の が あり ます 。 
getsou : ソ ー ス ・ ブ ログ ラム の 読み 込み 。 一 回 の 呼び 
出し で 1 行 分 読み 込む 。 読み込み 後 . レジ スタ 
や フラ グ に 次 の よう な 値 を 設定 する 。 
人 @ レ ジス タ HL 三 読 み 込ん だ 1 行 分 の 文字 列 の 先 
頭 ア ドレ ス 。 文 字 列 の 最後 に は NUL コー ド (00 
H) が 入っ て いる 。 
⑱ レジスタ DE 三 行 番号 (符号 な し 2 進数 ) 。 
@ キ ャ リー フラ グ (CY) 三 0 の と き リ ー ド Ok, 1 
の と き Endof File 。 
putobj : オブ ジェ クト ・ フ ァイル ヘレ ジス タム A の 値 を 
出力 する 。 
prtmsg: レジ スタ HL が 示す 文字 列 (NUL コー ド で 終 
わる ) を NUL コー ド の 前 の 文字 まで 表示 する 。 
error : レジ スタ HL が 示す 文字 別れ エラ ー メ ッ セ ー 
ジ と し て 表示 する 。 次 の 3 文字 が 特別 な 意味 を 
も つ 以 外 は prtmsg と 同じ 。 
@ け 文字 # は 現在 の 行 番号 を 表示 する 。 
@@XX 文字 @ の 次 の 2 バイ ト が 示す 文字 列 


2-3 全 プ ログ ラム ・ ツ スム 


(NUL コー ド で 終わ る ) を 表示 する 。 
| た は 文字 半 は レジ スタ DE が 示す 文字 列 
(NUL コー ド で 終わ る ) を 表示 する 。 
abort : コン パイ ル を 中 断 する 。 
regsym : レジ スタ HL が 示す デー タ (名 前 ) を 記号 表 へ 
登録 ( 再 登録 も 含む ) する 。 登録 する デー タ は 
図 2-5 の よう な 形式 。 


回 風 葵 登録 デー タ の 形式 と シン ボル ・ テ ー ブ ル (記号 表 ) の 構成 


登録 デー タ の 形式 シン ボル ・ テ ー プ ブル の 構成 
16 バ イト (n 個 の デー タ が 登録 で きる と する ) 


「 0 !| 2 き 4 5 6 7 8 3 1O 中 12 3 14 d 位置 
T 1 0> 


lowi hi 回 5 全域 的 な 名 
1 し | 」 前 の 登録 


ャ レス 
(また は 値 ) 


未 使用 
サブ ルー チン 
regsym 


で 登録 


ko 定数 , 変数 , デー タ 1 
ro は 常に アド レス 確定 Ms 
: ラ ベル) ラベ ル は 常に 局所 的 「「" 
・ 関 数 名 ) 関数 名 は 常に 全域 的 

・ 全域 的 (グロ ー バ ル ) 

・ 局所 的 (ロー カル ) 

・ 制御 変数 と し て 使用 し て いな い 。 

・ 制御 変数 と し て 使用 し て いる 。 

・ アド レス 確定 

・ アド レス 未 確 定 


Seasymm: レジ スタ HL が 示す 名 前 と 同じ デー タ を 記号 
表 か ら 6 検索 し , 等 し いも の が あれ ば レジ スタ HL 
が 示す 位置 へ 読み 出す 。 デ ー タ の 形式 は 登録 し 
た と き と 同 じ 。 検 索 結果 は レジ スタ A に 設定 る 
れる 。A=0 で Ok, A ニ FTF H で 等 し い 名 前 が な 
か っ た こと を 示す 。 
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elisym : シン ボル ・ テ ー ブ ル 内 の 局所 的 な 名 前 を 削除 
する 。 

clrstb : シン ボル ・ テ ー ブ ル の 内 容 を クリ ア す る 。 

putglo シン ボル ・ テ ー ブ ル 内 の 全域 的 な 定数 名 , 変 
数 名 , デー タ 名 を , 値 あ あるいは アド レス と 共に 
オブジェ クト ・ フ ァイル へ 出力 する 。 

inclu : %include で 指定 さき れ た ファ イル を オー プン 
し , getsou が include ファ イル か ら ソ ー ス ・ プ 
ログ ラム を 読み 込む よう に する 。 

edincl : getsou が End of File を 検出 し た と き に STEC 
MP か ら 呼 び 出 され る 。Endof File を 検出 し た フ 
ァイル が include ファ イル だ っ た ら , getsou が 
も と の ファ イル か ら 6 ツー ス ・ プ ログ ラム を 読み 
込む よう に し , キャ リー フラ グ を 1 に し て 戻る 。 
include ファ イル で な いと き は キャ リー フラ グ 
を 0 に し て 戻る 。 

pbreak : デバ ッ グ ・ モ ー ド の と き ュ コンパ イル 制御 文 % 
break の オブ ジェ クト ・ コ ユー ド を 生成 する (た だ 
し CP プ M バ バージョン で は サポ ー ト し て いな の 

で 警告 を 表示 し て 戻る )。 

tron : デ バッ グ ・ モ ー ド の と き ト レー ス ・ フ ラグ を 
ON に する (CPM バー ジョ ン で は サポ ー ト 
し て いな い の で 警告 を 表示 し て 戻る )。 

troff : デ バッ グ ・ モ ー ド の と き ト レー ス ・ フ ラグ を 
OFF に する (CP M バ バージョ ン で は サポ ー ト 
し て いな い の で 警告 を 表示 し て 戻る )。 

ddspi : トレ ー ス ・ フ ラグ が ON の と き , レジ スタ HL 
に 設定 され て いる 行 番号 (符号 な し 2 進数 ) を 
ディ スプ レイ に 表示 する よう な オブ ジェ クト ・ 
ュー ド を 生成 する (CP プ M バ パー ジョン で は サ 
ポー ト し て いな い の で 何 $ も し な い )。 

ddspfn トレース ・ フ ラグ が ON の と き , レジ スタ HL 
が 示す 関数 名 (NUL コー ド で 終わ る 文字 列 ) を 


クー- タ 3 


ディ スプ レイ に 表示 する よう な オブ ジェ クト ・ 
ュー ド を 生成 する (CP プ M バ ー ジ ョ ン で は サ 
ポー ト し て いな い の で 何 も 行 わな い )。 


以上 は STECMP で 使う サブ ルー チン の 説明 で し た が , 
STECMP で は 次 の 四 つ の 外部 シン ボル も 使い は す 。 こ れ 
ら の 定義 $ も この STECPM で 行い ます 。 

defsta : オブ ジェ クト ・ プ ログ ラム の スタ ッ ク ・ ボ ト 


ム の アド レス (た だ し %S : の 指定 が な い 場 合 )。 


dsaind: スタ ッ ク 設 定 に 関す る オプ ジェ クト ・ コ ー ド 
の 指定 。 
@dsaind= 0 の 場合 LD SP, defstsa と いう コー ド を 生成 
する 。 
人 @dsaind 三 FF H の 場合 ,LD SP,(defst) と いう コー ド を 生 
成す る 。 
stptyp オブ ジェ クト ・ プ ログ ラム 実行 終了 の 形式 指 
定 。 
人 @ stptyp 三 0 の 場合 , HALT 命令 を 実行 。 
人 @ stptyp 三 1 の 場合 、 起 動 時 の スタ ッ ク に 戻し RET 
命令 を 実行 。 
人 @ stptyp= 2 の 場合 , 次 の retadr が 示す アド レス ヘ ジ 
ャ ンプ する 。 
retadr : stptyp 三 2 の と き 有 効 と な る 。 


妹 アセ ン ブ ル ・ リ スト を 見 る 上 で の 注意 

1. 各 プ ログ ラム は コー ド 相 対 モ ー ド , デー タ 相 対 モー 
F ド で アセ ンプ ブル され て いる の で , アド レス は すべ で て 相対 
アド レス と な っ て いる 。 

2. アド レス な どの 2 バイ ト 長 の 値 は 必ず 上 位 バ イト , 
下位 バイ ト の 順に 表示 され る 。 実 際 に 生成 され る 値 は 下 
位 バ イト , 上 位 バ イト の 順に な っ て いる 。 

3. アド レス な どの 2 バイ ト 長 の 値 の 後に つい て いる ' 
や ?。 ※ な どの 文字 は 次 の よう な 意味 を 持っ て いる 。 


全 プ ログ "ラス ・ グ スム 
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HHHH ュー ド 相 対 モ ー ド の アド レス また 
は 値 を 示す 。 

HHHH7 デー タ 相 対 モ ー ド の アド レス また は 
値 を 示す 。 

HHHH ※* 外部 参照 記号 を 示す 。 


@ リ スト 2-4 STECPM の アセ ンプ ブル ・ リ スト 


title Stellar compiler CP/M-80.MSX-DOS support routine 
subttl Rev1.01 08/30/1984 
name ("cpmmod') 


Stellar compiler in/out module 


CP/M-80 , MSX-DOS support routine 
( Rev 1.01 ) 


Copyright (c) 1984 H.Ohnuki / MIA 


案 氷 素 ポポ 


101h irevision 1.01 


external optisw,1ino,strbuf ,cptr 
external codorg,datorg,Stkbot,cloc,d1oc 
external wOrK.e 


external COmPi 1 ,ptloC,ptname,Synerr ,9token 
external SPSKip,trauPc 


idefault code segment origin ( 0100h ) 
idefault data segment origin ( 4000h ) 


idefault stack bottom addreSs 
isp Set address ( 0Oh=direct。 0ffhsindirect ) 


ireturn type 2 : JumP 
retadr ireturn address : 0000h 
SymmNaX 
Symlen 
idelen 


iaX 512 Symbol 
il symbol length = 
iidentifier length 


16 byte 
= 12 byte 


CT 
1f 


iCarriage return 
iline feed 
iend of file 


おき 8 和泊 当る 


CP/m-80,mSx-dOS interface 
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8 
B 
E 


EEEETTTTF 計 TEE 


stdftp1: 
1 
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: 1 record = 128 byte 


iSyStem reboot entry 
ibdos entry 
idefault fcb_1 
idefault fcb_2 


iput console character 
iprint string function 
iopen file function 
iclose file function 
ideletefile function 
iread next record 
iwrite next record 

i 画 aKe file 

ijSet dma function 


hl , (bdos+1 ) 

1.0 

SP,hl iSet sp re9 

de,Stams9 

CprTintf 

bdos iPrTint Startinmg meSSa9e 


hl ,worK.b *wOrK Zero Clear 
(hl1).0 

de.,wOrk.bt1 

bc,work.e-wOrK.b-1 


a.(dfcbl+1) 
『 *SOurce file name ok ? 
Z.nOSOU 

hl .dfcbl+9 

a、(hl ) 


nz,Stdftpl 


isSet file type '.SOU* 


bc,9 

hl ,dfcb1 
de,dfcb2 
a,(de) 


a 
Z,Stdfdr 
de 
hl 
bc 


001A" 
014B* 
0019" 


13 
0005 


16 
0005 


0264* 


0039" 


0013" 
0000" 


0002" 
0100 
0000* 
4000 
0000* 
0000* 


0013" 


055D" 


stdfdr: 


Stdftp2: 


objclS1: 
1 


a,(dfcb2+1 ) 


nz,Stdftp2 


hl ,dfcb2+9 
a,(h1) 


nz,mvofcb 
(hl1),*0" 


hl,dfcb2 
de,ofcb 
bc,16 


hl ,dfcb1+1 
fnchk 


3 
(dfcb1+32 ) 、a 
de,dfcb1 
C,OPenf 

bdos 

a 

ZnOSOU 
hl,sbfsiz 
(Sbrptr ) ,hl 
(sbrlen) ,h1 


hl ,ofcb+1 


Cdeletf 
bdos 

de 
C,makef 
bdos 


す 9 
Z,dirful 


a 
(ofcb+32 ) ,a 
h,a 


1.a 
(obsptr ) ,h1 
(errcou) 、h1 


hl 

(slino) 、hl 
hl,defcda 
(codorg) ,hl 
hl ,defdta 
(datorg) , hl 
Compi 1 


hl , (obsptr ) 
e。1 
bc.objobf 
hl,bc 


E コ 
reclen-1 
Z,ObJcls2 


:move dfcb]1 to dfcb2 


iSet file type '.OBJ* 


imOVe dfcb2 to ofcb 


ifile name Check 


ireset dfcbl.cr 


iOPen SOurCce file 


isOK ? 


ifile name Check 


delete old object file 


imake new object file 


iTeSet ofcb.Cr 


Clear error counter 


iSet default code segment origin 


iset default data segment origin 
iCOmPile 


fnchk:: : 


fnchk1: 


(hl ).0ffh 
de 

hl 
objcls1I 


de,hl 
wrobuf 
de,oOfcb 
C,C1oSef 
bdos 

a 
Z,nOC1S 


de,CrIf 
C,Printf 
bdos 
de,Strpro 
bc,(cloc) 
hl , (codor9) 
prszad 
de,strdat 
bc, (dloc) 
hl , (datorg) 
prsZad 

a, (optisw) 
5,a 

Z,Cend 
de,Strstal 
C,Printf 
bdos 

hl , (Stkbot ) 
hl 


Prhex4 
de,Strsta2 
CpTintf 
bdos 


de, edmSg9 
C,Printf 
bdos 

hl ,(errcou) 
ah 

1 
nz,Cend1 
de,nOerr 
CprTintf 
bdos 
Cend2 


a,3 
prdec5 


de,eTTCUm 
C,Printf 
bdos 

boot 


XX file name CheCk 


b,813 


a, (hl ) 
・9・ 
Z,badfil 
hl 
fnchk1 
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・ Offh = end mark 


iwrite object buffer 


iClose object file 


iPrint code size,addreSSs 


iprint data size,addreSS 


ij%S Off ? 


iprint stack bottom addresS 


inO errOr ? 


iPTint "No error(S)“" 


iPTint error count 


iTeturn to OS 


hl: fcb.f1l address 
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mmCSSa9e 


0157′ 0D0A 53 74 Stamsg: defb cr.1f, "Stellar compiler Rev 
1 


OI6E' 31 2E 30 31 defb rev/100h+'0'、'、",(rev/10h and Ofh)+'0'.(rev and 0fh)+'0* 
0172* 20 28 20 43 defb ・( CP/M-80.MSX-DOS Version )* 
0176" 50 2F 4D 2D 

017A' 38 30 2C 4D 

017E* 53 58 2D 44 

0182" 4F 53 20 56 

0186* 65 72 73 69 

018A' 6F 6E 20 29 

018E' OD 0A 43 6F defb cr.1f Copyright (c) 1984 H.Ohnuki / MIA' 
0192′ 70 79 72 69 

0196′ 567 68 74 20 

019A′ 28 63 29 20 

0O19E′ 31 39 38 34 

01A2* 20 48 2E 4F 

01A6' 68 6E 75 6B 

01AA* 69 20 2F 20 

01AE" 4D 49 41 

01BI* 0D 0A 24 CrIf: defb Cr,1f る" 

O1B4′ 0OD0A50 72 strpro: defb cr,1f,。"Program $" 

O1B8′ 6F 67 72 61 

O1BC′ 6D 20 20 24 

01CO' OD0A4461 strdat: defb cr,1f, "Data $' 

OIC4′ 74 61 20 20 

OiIC8′ 20 20 20 24 

01CC* 0D 0A 53 74 strstal:defb cr,1f。"Stack bottom ( -$* 
01D0' 61 63 6B 20 

01D4* 62 6F 74 74 

OiD8' 6F 6D 20 20 

01DC* 28 20 20 20 

01E0" 20 2D 24 

OIE3′ 29 24 strsta2:defb )$" 

edmsg: defb Cr。1f。1f。"xx Enmd of compile, $' 


O1IFE' 4E6F 24 noerr: defb *No$* 

0201′ 2065 72 72 errcum: defb *” errOr(5)",CrT。1f"$" 
0205' 6F72 28 73 

0D 0A 24 


H print size,addreSs 
PrSZad: 
push bc 
Push hl 
09 1d C,Printf 


iprint string 


size ( byte ) 


0252* 
02F8" 
0A 25 
20 73 
72 63 
66 69 
24 


026A* 
02F8* 
0A 25 
20 64 
65 63 
72 79 
70 61 
24 


0286* 
02F8* 
0A 25 
73 6B 
75 6C 


0299* 
02F8'* 
0A 25 
6E 6E 
20 63 
73 65 


02AF* 
02F8'* 
0A 25 
64 20 
75 72 
20 66 
65 24 


02C8" 
02F8* 
0A 25 42 


prSZad1: 


dSkful: 


badfil: 


ret 
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af 
Z,prSZad1 


C,Putchrf 
bdos 
es 6" 
C,Putchrf 


C,Putchrf 
bdos 


af 
af 


1/O errOor 


de,$+6 
errTprt 
cr,1f、"%No Source file$" 


de,$+6 
errprt 
Cr,1f。"%No directory Space$* 


de,$+6 
errPrt 
cr,1f。"%Disk ful1$" 


de,$+6 
errprt 
Cr,1f 。"%Cannot close$" 


de,$+6 
errprt 
cr,1f,。"%Bad source file$" 


de,$+6 
errprt 
cr,1f,"%Bad file name$' 
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02CC* 
02D0" 
02D4' 
02D8' 
02D9* 
02D9* 
02DC* 
02DF" 
02E3" 
02E7* 
02EB' 
02EF* 
02F3* 
02F7* 


02F8' 
02F8" 
02FA' 
02FD' 
0300" 
0302* 
0305* 


0308" 
0308' 
0309" 
030A* 
030D* 
030E* 


030F* 
030F* 
0310" 
0311* 
0312* 
0313" 
0314' 
0317* 


0318" 
0318" 
031A" 
031C* 
031E* 
0320* 
0322* 
0323" 
0325* 


0328* 


0328'* 
0329* 
032C* 
032F* 


61 
69 
6E 
24 


64 20 66 
6C 65 20 
61 6D 65 


02DF" 

02F8' 

0A 25 53 
6D 62 6F 
20 74 61 
6C 65 20 
76 65 72 
6C 6F 77 


09 
0005 
01B1" 
09 
0005 
0000 


030F* 


0318" 


SytoVf: 

1d de,$+6 

Jp GFTrPrt 

defb cr,1f ,"%Symbol table overflow$" 
erTPprt: 

1d Cprintf 

cal1 bdos 

1d de.Crlf 

1d Cc,printf 

cal1 bdos 

JP boot iTeturn to OS 
H XX PFint hex XX 
prhex4:: hl: output data 

push hl 

1d ah 

cal1 Prhex2 

POP hl 
4 1d a.1 
Prhex2 

push af 

TrCa 

rrCa 

TrTCa 

TrCa 

cal1 prhex1 

Pop af 
prhex1 

and Ofh 

add a. 0" 

CP "9'+1 

Jr C,$+4 

add 。 a/A'-'9'-1 

1d に 

1d Cc,Putchrf 

JP bdos 
XX PFint decCimal x% 
prdec5:: a : 00Oh=no Zero SuPPreSSion 


02h=zero suppresSion, fixed print (5digit ) 
03hszero suppression、Varyin9 Print ( 1..….5 digit ) 

hl: out put data 

d,a 

bc,10000 

PrdecSs 

bc,1000 

PrdecCS 

bc,100 

prdecS 

bc,10 

PrdecS 

a,1 

*0" 

| 
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C,putchrf 
bdos 

034A′ IE 30 1d e。 "0" 
034C* prdecSs1 
034C' B7 Or a 
034D' ED 42 sbc hl ,bc 
034F* 1C inc e 
0350' 30 FA Jr nc,PrdecS1 
0352" 09 add hl .bc 
0353′ 1D dec 2 
0354 CB 4A bit 1.d 
0356* 28 0D Jr Z, PrdeCS3 
0358* 7B 1d 6 
0359′ FE 30 CP 0 
035B′ 20 06 Jr nZ,PrdeCS2 
035D' CB 42 bit 0.d 
035F′ CO ret nz 
0360'′ IE 20 1d し 
0362 01 defb Oih 
0363 PrdeCS2: 
0363* CB 8A reS 1.d 
0365* prdecS3 
0365′ E5 Push hl 
0366' D5 push de 
0367′ 0OE 02 1d Cc,Putchrf 
0369′ CD 0005 Cal1 bdos 
036C′ D1 POP de 
036D' El POP hl 
036E'′ C9 上 ret 

H XX abOTt 
036F abort:: 
036F* 11 037A* 1d de,abtmS 
0372′ 0OE 09 1d C,Printf 
0374′ CD 0005 Cal1 bdos 
0377′ C3 0122* Jp Cend 
037A′ 0OD0OA2541 abtms: defb cr,1f 、'%Abort$" 
037E' 626F72 74 
0382′ 24 

MX 6TTOT 
0383" erTOT:: * hl: error meSSage addresS (nul end strinmg ) 

H de: Sub meSSage addresS5 (nmul emd string ) 

0383′ ED 53 005B" 1d (sbmsad ) .de 
0387′ 2B dec hl 
0388′ E5 push hl 
0389′ 11 0OIBI' 1d de.Crlf 
038C′ 0OE 09 1d Cc.printf 
038E' CD 0005 cal1 bdos 
0391* error1 
0391 E1 POP hl 
0392 23 inc hl 
0393 7E 1d a.(hl ) 
0394′ B7 or a 
0395′ 28 3E Jr Z,errTOr5 
0397 E5 PuSh 
0398′ FE 23 CP "#* 
039A′ 20 15 Jr nz,errOr2 
039C' 2A 0000* 1d hl .(1ino) 
039F′ 3E 02 1d a.2 
03A1′ CD 0328* cal1 prdec5 iprint line number 
03A4′ 11 03AE" 1d de.error1l.5 
03A7′ 0OE 09 1d C,Printf 


03A9′ CD 0005 Cal1 bdos | 
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Jr errorl 
erTOr1.5: defb 
error2: 

・@・ 
nz,error3 


iPTint Sub meSSage 
errorl 
erTOT3: 
0 
nz,errOr4 
hl , (sbmSsad ) 
PrtmSg iPrint Sub meSSa9e 
error1l 
erTTOT4: 
EE:! 
C,putchrf 
bdos 
errorl 


5 
errOT5: 


hl ,(errcou) 
hl 


(errcou) ,h1 
de,Crlf 
C,PTintf 
bdos 
hl,1inbuf 
a,(inclf ) 
a 

Z,$+5 
hl,ilibuf 


XX Print 右 CSSa9eG ※% 


hl: string address ( nul code end ) 
a,(h1 ) 

a 

雪 

hl 

e,a 

C,putchrf 


XX maKe fCD XX 


de: fcb addresSs 
hl: file name 
SPSkip 1iSPaCe SKip 


itranslate to upper CaSe 


Z、mkfcb2 


ク -3 全 プ ログ "ラム ・ ツ スム 


de 


(hl ) ,0 
mkfcb3 


(hl),c iSet fcb.dr 
de 


b,8 Set fcb.fl ... fcb.f8 
hl 


Chckfc :character check 


mkfcb4 
Chckfc 
Z, 右 Kfcb7 


de 
mkfcb5 


iSet fcb.《t1 ... fcb.《t3 


nz.mkfcb10 
de 


chckfc iCharacter check 


Chckfc 
Z,mkfcb11 


J 
mkfcb10: 
1 


mkfcb11: 


X iClear fcb.ex、S1, S2 
mkfcb12: 


iClear fcb.rC 


1 Cy=0 : make ok ! 


Chckfc: 


itranslate to upper CaSe 
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・ Z=1 : delimitinmg Character 


・ Z=0 : non delimiting character 
i) Cy=1 : bad file name 
xX inmcludefile open xx 


000A" a,(inclf ) 
a 

0000* nZ.Synerr 

0000* hl ,(cptr) 
SPSKiP 
hl 
de,ifcb 
mkfcb imake fcb 
Cc,badifl 
(cptr ) ,hl 
hl 
gtoken 


nzZ,Synerr 

de,ifcb 

C,OPenf 

bdos ifile open 
a 

Z,nOifl 

hl,ibfsiz 

(ibrptr) hl 

(ibrlen),hl 


a.0ffh 
(inclf)、a 
hl .(cPt り ) 
(cptr1l ) 、hl 
hl ,(1ino) 
(1inol ) .hl 
hl .(S1ino) 
(slino1l ) hl 
hl 、1 
(slino),hl 
hl.ilibuf 
(cptr) .hl 
(hl1) 、0 


hl,inclflm *print include file name 
Prtmsg 
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Prifn1l: 


Prifnl 


0A 2A 2A imclflm:defb Cr,lf。"x Include : '.0 
20 49 6E 
6C 75 64 
20 3A 20 


Of include XX 


ai(inclf ) 
a 
Z ・Cy=0 : end of source 
a 
000A" (inclf ) ,a 
053E* hl ,edicmW 
03F0' PrtmSg 
0004" hl ,(1inol ) 
0000* (1ino) ,hl 
0008" hl ,(S1ino1 ) 
0002" (slino) ,hl 
2A 0006" hl , (cptr1) 
22 0000* (cptr) ,hl 
37 Cy=1 : end of jinclude 


CT,1f。"xx End of include',.0 


* 


H XX inmClude erTOY xe 


badif1: 
1d hl ,badifl 血 
Cal1 errOr 
JP abort 
badiflm:idefb *#Bad include file name'.0 


noifl: 


hl.noiflm 
error 
abort 
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057C'′ 234E6F20 noiflm: defb "NO include file'、0 
0580′ 696E636C 
0584′ 756465 20 
0588′ 66 69 6C 65 


058C' 00 

H XX break, tron、troff xx 
058D: pbreak:: 
058D' 11 0593" 1d de,$+6 
0590' C3 05B3* Jp nOSUP 
0593′ 256272 65 defb *%break',0 
0597′ 61 6B 00 
059A* tron:: 
059A′ 11 05A0' 1d de,$+6 
059D' C3 05B3* JP nOSUP 
05A0' 25 74 72 6F defb *%tron'.0 
05A4' 6E 00 
05A6' troff:: 
05A6' 11 05AC* 1d de.$+6 
05A9′ C3 05B3' Jp hnOSUP 
05AC' 25 74 72 6F defb *%troff'.0 
05BO0′ 66 66 00 
05B3* nOSUP: 
05B3′ 3A 0000x 1d a.(optjsw) 
05B6′ CB 67 bit 4.a :%debug Ssw on ? 
05B8' C8 ret レン 4 
05B9′ 21 05C7* 1d hl noSuPm 
05BC'′ CD 0383" Cal1 errTOr 
05BF* 2A 0000" 1d hl (errCou) 
05C2′ 2B dec hl 
05C3′ 22 0000" 1d (errcou) 、hl 
05C6′ C9 ret 
05C7′ 234E6F 6E nosupm: defb Non Supporting (warnin9): \".0 
05CB′ 20 7375 70 
05CF' 70 6F 72 74 
05D3′ 69 6E 67 20 
05D7* 28 77 61 72 


OS5DB'" 6E69 6E 67 
3A 20 


XX function name, 1inme number display object out 


imOn SuPpOrting 


ret 


XX get SOUTCe file 


hl,1inbuf 
05E8′ 3A 000A" 1d a,(inclf ) 


05EB' BZ7 Or a 
05EC' 28 03 Jr Z,$+5 
0O5EE' 21 00DD" 1d hl.ilibuf 


b,1inbufs 


9etsoul : 


a,(inc1lf ) 


0O5F9′ BZ Or 上! 

05FA'′ 20 05 Jr nz,getsou1 .3 

05FC' CD 062F"' cal1 rdSouC iTead Source file 
O5FF′ 18 03 Jr getsoul .6 

0601* getsoul .3: 

0601′ CD 0692" ca]1 rdincl 


getsoul .6: 
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iend of file ? 


Z,9etSsou2 
Cr NSP で 
Z,9etsou3 
1f i1f ? 
Z,9etsoul 


getsou2: 


de,(S1ino) 

getsou4 
9etSou3: 

(hl1),0 

hl ,(s1ino) 

dh 

e,1 


hl 
(Ss1ino) ,h1l 


9etSou4: 
hl 


*X read SOurce file ( 1 character ) 


hl , (sbrptr) 
de, (sbrlen) 


i sbrptr <sbrlen ? 


ae 
1ow sbfsiZ 

nz,rdSouc0 

ad 

high sbfsiz 
Z,rdSouc1 


1 : end of file 
eof character 


・ CyY 
a.eOf ・ a 
TdSouc1 : 

hl .0 

(sbrptr) ,hl 

de,Souibf 

b,sbfsiz/reclen 
TdSOuC2: 

bc 

hl 

de 

Cc.Setdmf 

:Set dma addreSss 


iTead Source file 


bc,reclen 
hl ,bc 
de,hl 
hl 
hl 、bc 
iend of file? 
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066F' CI PoP bc 


0670' 20 04 Jr nz .Tdsouc3 
0672* 10 E2 djnz rdSOuC2 
0674′ 18 09 Jr rdSOuC4 
0676' rdSOuC3: 
0676′ 01 FF80 1d bc,-reclen 
0679′ 09 add hl ,bc 
067A' 22 000D" 1d (sbrlen),hl 
067D' 18 B0O Jr rdSoucC 
067F* rdSouC4: 
067F* 22 000D" 1d (sbrlen) 、hl 
0682* rdSouc5: 
0682* 2A 000B" 1d hl , (sbrptr) 
0685′ E5 push hl 
0686'′ 11 0I5D" 1d de,Souibf 
0689′ 19 add hl,de 
068A′ 7E 1d a, (hl ) ・ a = Character 
068B' El POP hl 
068C'′ 23 inc hl 
068D' 22 000B" 1d (sbrptr ) , hl 
0690* B7 Or a : Cy=0 : read Ok 
0691′ C9 に ret 
H XX read include file ( 1 character ) 
0692* rdincl:: 
0692′ 2A 000F" 1d hl,(jibrptr ) 
0695′ ED 5B 0011" 1d de.,(ibrlen) 
0699′ E5 push hl 
069A'′ B7 Or a 
069B' ED 52 sbc hl .de 
069D' El POP hl ・ibrptr < ibrlen ? 
069E'′ 38 45 Jr Cc.rdinc15 
06A0' 7B 1d ae 
06A1′ FE00 CP low ibfsiz 
06A3′ 20 05 Jr nz,rdincl0 
06A5′ 7A 1d ad 
06A6′ FE 02 CP high ibfsiz 
06A8′ 28 04 Jr Z,rdincl1 
06AA" rdinc10: 
06AA′ 37 scf ・ cy=1 : end of file 
06AB' 3E 1A 1d a,eOf ・ a = eOf character 
06AD C9 ret 
06AE" rdincl1: 
O6AE' 21 0000 1d hl.0 
06BI′ 22 000F" 1d (ibrptr ) ,hl 
06B4′ 11 035D" 1d de、jncibf 
06B7′ 06 04 1d b,ibfsiz/reclen 
06B9* rdinc12: 
06B9′ C5 Push bc 
06BA′ E5 Push hl 
06BB' D5 push de 
06BC′ 0OE 1A 1d C,Setdmf 
06BE' CD 0005 Cal1 bdos :Set dma addreSSs 
06C1'′ 11 003A" 1d de,ifcb 
06C4′ 0OE14 1d C,Teadf 
06C6' CD 0005 Cal1 bdos iTead Source file 
06C9′ El POP hl 
06CA'′ 01 0080 1d bc,reclen 
0O6CD′ 09 add hl、bc 
O6CE'′ EB eX de、hl 
06CF E1 Pop hl 
06D0 09 add hl ,bc 
06D1′ BZ Or a :end of file ? 
06D2′ Ci Pop bc 
06D3′ 20 04 Jr nz.rdinc13 
06D5′ 10 E2 dJnz rdinc12 
06D7′ 18 09 Jr rdincl4 
06D9* rdincl3: 


01 FF80 
09 

22 0011" 
18 BO 

22 0011" 
2A 000F" 


035D" 


0013" 


055D" 


0013" 
0400 


055D" 


rdincl4: 


rdincl5: 


putobjii i 
1 


wrobuf : 


wrObuf1: 


bc,-reclen 
hl 、bc 
(ibrlen),hl 
rdincl 


(ibrlen) ,hl 
hl.(ibrptr) 


hl 
de,incibf 


(jibrptr ) ,h1 
a 
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ia = Character 


cy=0 : read ok 


objectfile( 1 byte ) 


a : Object 
hl , (obsptr ) 
hl 
de,objobf 


(obsptr ) , hl 
a,1 

1ow obfsiz 
nz 

ah 

high obfsiz 
nz 

h,a 

1,a 
(obsptr ) , hl 
hl,obfsiz 


de,objobf 


hl 
de 
C,Setdmf 


Ciwritef 
bdos 

hl 
de,rTeclen 


nz ,dSkful 
ah 

1 
nz,wrobuf 1 


・ obfptr <> obfsiz ? 


iSet dma address 


write object file 


iwrite ok ? 


XX Symbol table regiSter xx 


hl: register data 


bit 4.(h1 ) 
Jr Z,Te9SymS 
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・ 1ocal Symbol 


de.Symtbl+(Symmax-1 )*Symlen 
Te9Syml : 
1 bc.idelenx100h 
hl 
de 
hl,(lcptr) 


に 1 
hl,de 
Z,Te9Sym10 


Te9Sym2: 


nZ,re9Sym3 
a 
Z.Te9Sym13 
Te9Sym2 
Te9Sym13 
Te9Sym3: 
de 
hl,-Symlen 


Te9Syml 


, 91obal Symbol 


Te9Sym5: 
Te9Sym6: 


de,Symtb1 
bc,idelenx100h 
hl 


de 
hl , (glptr) 


a 
hl,de 
Z,Te9Syml1 


Z,Te9Sym13 
Te9Sym7 
regSym13 


de 
hl,Symlen 


regSym10: 
1d hl, (lcptr) 
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11 FFFO de,-Symlen 

19 hl ,de 
0017" (1cptr),hl 
0A re9Syml2 


0015" d hl , (glptr ) 

0010 de,Symlen 
hl de 

0015" (glptr ) , hl 


0017" 1d hl,(lcptr) 
0020 de,Symlenx2 
9 hl .de 
5B 0015" de.(glptr) 


a 
ED 52 hl .de ・Symbol table overflow ? 
02D9* Z,Sytovf 


de 
hl 
bc,Symlen 


Symbol table SearCh 


SeaSym:: ・ hl: search data 
294D" 1 de.Symtbl+(Symmax-1)xSymlen 
SeaSyW1 : 
0C00 1 bc、idelenx100h 
hl 
de 
a、.(de) 
a 
Z,SeaSym3 


hl 

de 

8,(de) 
(hl ) 

nzZ ,SeaSym4 


上! 

Z,$+4 
SeaSym2 
hl 

de 
bc,Symlen 


上 


hl 
hl, (glptr) 
0feh 


hl 
de,-Symlen 
hl,de 

hl 
de,Symtb1 


nC,SeaSyml 
Offh 
ret 


XX Gelimination local SymbOl 
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de,(lcptr) 
hl ,Symtbl+(Symmax-]1 )*Symlen 
(lcptr ) .h1 


a 
hl,de 
b,h 

(6! 

hl ,symlen 
hl ,de 
d,0 


iundefined ? 


000C de,idelen 
hl de 
00 (hl ).0 
083F* hl 、udlms 
03F0' iPTint error meSSage 


03F0" 
0000" hl ,(errCou) 
i hl 


0000" (errcou) hl 
eliSym2: 


el1iSyml 


udlms: defb Cr.1f。" 2? Undefined label : '.0 


*X Clear Symbol table xx 


095D" hl Symtb1 
0015" (glptr) .hl 
2000 bc.SymmaXxSymlen 


00 


nz,ClrStb1 
hl , Symtbl+(Symmax-1 ) Syml en 
(1cptr) 、h1l 


ret 
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XX Put global Symbol xx 


putglo1: 
1 


putglo2: 
1 


j 
putg103: 


po 
putglo4: 
1 


putg105: 


de,Symtb1 
hl , (glptr ) 
a 

hl,de 

de 


1x 
a。h 


1 
Z,putglo5 
hl 


1.(ix+idelen+1 ) 
h.(ix+idelen+2) : hl = addreSSs 
(ix+idelen+1 ) .0 

7,(ix) :undefined ? 
Z,Putg102 


Print errOr meSSage 


hl , (errCOu) 
hl 
(errcou),h1 


iConstant ? 


ivariable ? 


idata 9 
iput location address 


de,Strbuf 
bc,idelen+1 
*mOVE 
Ptname iPut name 
ix 
de,Symlen 
ix.de 
hl 
3 


hl .de 
putglol 


hl , (cloc) 
ptloc iPut new Code loc 
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0D 0A 20 20 udfms: defb CT,1f 。" ?: Umdefined function name : '.0 
20 20 3F 3A 
20 55 6E 64 
65 66 69 6E 
65 64 20 66 
75 6E 63 74 
69 6F 6E 20 
6E 61 6D 65 
20 3A 20 00 


erTCOou: :defS ierTTOT Counter 
slimo: defs iSOUrCe 1ine number 
1linol: defs iSave area 


cptr1: defs 
slinol: defs 


inclf:: defs , 0=source, Offh=include 
sbrptr::defs 
sbrlen::defs 
ibrptr::defs 
ibrlen::defs 


iSOurCe imput buffer read pointer 
iSource jinput buffer read length 
iinclude jinput buffer read pointer 
iinclude input buffer read length 


obsptr::defs object output buffer store pointer 
glptr:: defs 
1cptr:: defs 
ofcb:: defs 
ifcb:: defs 


igl1obal symbol store pointer 
ilocal symbol store pointer 
iObject fcb 
iinclude fcb 


の の まこ いこ 】 1 に 】 に まこ 月 ここ 】 


Sbmsad::defs 


に 


SUb errOY meSsage addreSS 


linbufs equ 128 
1inbuf::defs 1inbufs iline buffer 
ilibuf::defs 1inbufs 


Sbfsiz equ reclenx4 

Souibf::defs SbfsiZ SOuTCe jnput buffer 
ibfsiz equ reclenx4 

incibf::defs ibfsiz 

obfsiz equ reclenx8 

objobf::defs obfsiz ・object output buffer 
Symtbl::defs SymmaXXSymlen  ・Symbol table 


end Start 
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(2) STECMP. MAC の 構成 と アセ ン ブ ル ・ リ スト 
STECMP. MAC は 実際 に コンパイル を 行う 部 分 で , 1 パス 
方 式 で す 。 構 文 解析 法 に 再帰 的 な 方 法 を 用 いて いる だめ , 
ほ ば 1-3 で 示し た 構文 図 の 通り に 構文 が 解析 され , その 
つど オプ ジェ クト ・ コ ー ド を 生成 する よう に な っ て いま 
す 。 図 2-6 は STECMP の 構成 で す 。 図 中 の 各 ル ー チ ン は 次 
の よう な 処理 を 行っ て いま す 。 
compil : プロ グラ ム の 頭 書き の 処理 全域 的 な 名 前 
の 定義 と 宣言 。 
main : 主 プロ グラ ム の 処理 。 
functi : 二 度目 以降 の 全域 的 な 名 前 の 定義 と 宣言 。 関 
数 の 頭 書き と ブロ ッ ク の 処理 。 
otrunt : ラン タイ ム ・ ル ー チ ン を リロ ケー ショ ント し, 
オブ ジェ クト ・ フ ァイル へ 出力 する 。 
deficn : 表意 定数 の 定義 。 
defdcl : 定義 と 宣言 。 
condef : 定数 名 の 定義 。 
vardcl : 変数 名 の 宣言 と メモ リ の 割り つけ 。 
inlstm : inlhmne 文 の 処理 。 
datdcl : デー タ 名 の 宣言 と デー タ の 格納 。 
statem : ラベ ル お よび 文 (ステ ー ト メン ト ) の 処理 。 
iclstm : コン パイ ル 制 御 文 % include の 処理 。 
brkstm : コン パイ ル 制 御 文 % break の 処理 。 
tronst : コン パイ ル 制 御 文 % tron の 処理 。 
trofst : コン パイ ル 制 御 文 % troff の 処理 。 
comstm : 複合 文 あ る い は until 文 の 処理 。 
dumstm : 空 文 の 処理 。 
compou : 複合 文 の 処理 。 
whistm : while 文 の 処理 。 
forstm : for 文 の 処理 。 
lopstm : loop 文 の 処理 。 
ifstm : 文 の 処理 。 
extstm : exit 文 の 処理 。 
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STECMP の 構成 


defdcl safem に ニー ifstm | 
べべ 


him LNam | 
qtdc 


iclstm 
brkstm 
Tronst 
frofst 


eXDres 


fgcter に ーーーー| SXBf | 


[em 7 eee][por ] ie] eel com | 
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gostm お よび gotstm: goto 文 の 処理 。 

retstm : return 文 の 処理 。 

stpstm : stop 文 の 処理 。 

idxopr : イン デック ス 操 作文 の 処理 。 

idxset :set 文 の 処理 。 

ldx ・1dx 文 の 処理 。 

Stx ・stx 文 の 処理 。 

inx ・inx 文 の 処理 。 

dex ・dex 文 の 処理 。 

expres : 文 と し て の 式 の 処理 。 

exDre : 式 の 処理 。 

logexp : 論理 式 の 処理 。 

logtem : 論理 項 の 処理 。 

logfac : 論理 因子 の 処理 。 

relexp : 関 係 式 の 処理 。 

ariexp : 算術 式 の 処理 。 

term : 項 の 処理 。 

factor : 因子 の 処理 。 

expr  : カ ンマ 式 の 処理 。 

fuc?  : 条件 演算 関数 の 処理 。 

memor: メ モリ 配列 の 参照 代入 に 関す る 処理 。 

port : ポ ー ト 配列 の 参照 。 代入 に 関す る 処理 。 

itrfun : 組み 込み 関数 の 処理 。 

vardat : 変数 , デー タ の 参照 , ある い は 変数 へ の 代入 
に 関す る 処理 。 

const : 式 の 中 で 使用 され る 定数 の 処理 。 

ufuncl : まだ シン ボル ・ テ ー ブ ル に 登録 きれ て いな い 
関数 名 を 呼び 出 を うと する 場合 の 処理 。 

funcal : すでに シン ボル ・ テ ー ブ ル に 登録 る きれ て いる 
関数 名 を 呼び 出す と き の 処 理 。 


STECMP.MAC に は , この 他 に 各 ル シー チ ン か ら 共 通 に 使 
われ る サブ ルー チン が 数 多く あり ます 。 こ の うち , 主 な 
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も の を 湊 に 示し ます 。 
DEir' : オ ジジ ェ グ ト ュ コー ド よ まし て リラ ディ ジャ ジグ 
ャ ンプ 命令 が 使 を る よう な ら , リラ ティ ブ ・ ジ 
ャ ンプ 命令 を 生成 する 。 
propt : 式 は 本 書 第 一 部 で 解説 し た 簡単 な 最適 化 を 
行っ て いる 。 こ の ルー チン は を その 最適 化 の た め 
の 準備 を する 。 
stoptb : 式 の 最適 化 の た め ゆめ の テー ブル (スタ ッ ク 構 造 
に な っ て いる ) に 演算 数 を 入れ る 。 
decopt : 式 の 最適 化 の た ゆめ の テー ブル か ら 演 算数 を 
ーー つ 消 す (つま り , POP し て 捨て る )。 
oprexc : 式 の 最適 化 の た め ゆめ の テ ー ブ ル の , 最新 の 演算 
数 と 次 の 演算 数 を 交換 する 。 
dyagen (codgen ) : 二 項 演算 の オブ ジェ クト ・ コ ー ド 
を 生成 する 。 式 の 最適 化 の た め の テ ー ブ ル か ら 6 
は 二 つ の 演算 数 が な く な る 。 
pteod1 : 1 バイ ト の オブ ジェ クト ・ コ ユー ド を 出力 。 
ptcod2 : 2 バイ ト の オブ ジェ クト ・ コ ユー ド を 出力 。 
ptcodw : 1 ワー ド の オブ ジェ クト ・ コ ユー ド を 出力 。 
ptcod3 : 3 バイ ト 命 令 (1 バ イト 二 1 ワー ド ) の オォ ブ 
ジェ クト ・ コ ユー ド を 出力 。 
ptname : 名 前 を オブ ジェ クト ・ フ ァイル へ 出力 。 
ptloc  : 現 在 の ロケ ーション ・ カ ウン タ の 値 を オブ ジ 
ェクト ・ フ ァイル へ 出力 。 
ptcha : チェ イン ・ ア ドレ ス を オブ ジェ クト ・ フ ァ イ 
ル へ 出力 。 
conexp : 定数 式 の 処理 。 
bytcon : バイ ト 定 数 を 求め る 。 
wodcon : ワー ド 定 数 を 求め る 。 
gtoken : 字句 解析 。 
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@ リ スト 2-5 STECMP の アセ ンプ ル ・ リ スト 


title Stellar compiler compile module 
subttl Rev 1.01 08/30/1984 
name ("cmpmod') 


Stellar compiler COmPile module 
( Rev 1.01 ) 


Copyrigth (c) 1984 H.Ohnuki / MIA 


1/o module 


external getsou,putobj 

external stptyp,retadr 

external defsta,dSaind 

external Te9Sym,SeaSymm,e1iSym 

external clrstb 

external PutglO,prtmS9 

external abort,error 

external ddspfn,ddSpli 

external inclu,edincl 、pbreak.tron,troff 


run time module 


external estart,@stop 

external @mul .m,@U]1 .Y 

external @diV.m,@diV.T、@Tem.m、@Tem.T 
external @shl .m,@Shl .r、@Shr .m.@Shr .T 
external @setag,@PrO9 

external @rtwOrK,@Stptp,@retad ,@temP,@Var 
external crelat,drelat 


CD 0000* 9etsou i9et sourCce PrO9rTam ( first line ) 
D8 C 

0000" (cptr ) ,hl 

53 0002" (limo),de 

1BOF* gtoken iget first token 

80 80h *"PTO9′ ? 

200E' ) nzZ,Synerr 

1BOF* gtoken 

a 
200E'* ) nZ,SynerT 
198C* mOVname 


・ option switch 


XOr 3 
0004" 1d (optisw) 、a Option Switch all off 
cal1 gtoken 
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CoOmP112: 


COmpi13: 


COmpi14: 


nzZ,SynerT 


gtoken 

い ・ 
Z,COmpi17 
・%・ 


nzZ,OPSerT 
gtoken 
84h 
nZ.COmpi12 
hl .optisw 
4.(h1 ) 
gtoken 
coOmpi16 


a 
nZ.OPSeTT 
hl (identi ) 
a.h 

a 
nzZ.OPSeTT 
a.1 

trauPc 

af 

9token 


nZ.OPSerT 
af 
・P・ 
nZ,COmpi13 
hl ,optisw 
7,(h1) 
b,80h 
compi15 


・D・ 
nZ.COmPpil4 
hl ,optisw 
6,(h1 ) 
b,40h 
compi15 


・S・ 
nzZ,OPSerTT 
hl.optisw 
5.(h1) 


(codorg) ,hl 
aa 

nc,$+5 
(datorg) ,hl 
aa 

nc,$+5 
(stkbot ) hl 


a,( tokcod ) 


Z,COmPill 
り ・ 


TnZ,OPSerTT 


idebug′ 3? 


:%debug Sw On 


translate tO upPPer'CaSe 


XP ? 


i%P Sw On 


iword conSstant 


Set code se9ment origin addreSSs 


iset data segment origin addreSSs 


Set stack bottom addreSS 


00AD* 
00B0'* 
00B2* 
00B5' 
00B8' 
00BA' 
00BC* 
00BE" 
00C0'* 
00C3* 
00C6' 
00C9' 
00CC* 
00CF* 
00D2* 
00D5" 
00D7* 
00DA* 
00DD' 
00E0" 
00E3'* 
00E6" 
00E9* 


00EC' 
00EF* 
00F2" 
00F6" 
00F8" 
00FB' 
00FE'* 
0102" 
0103" 
0106" 
0109" 
010D* 


010F' 
010F'* 
0111' 
0113* 
0116' 
0118" 
011B" 
OIIE' 
O1IF* 
0122* 
0124'* 
0125* 
0127* 
0128* 
012A* 
012D* 
0130* 
0132" 
0132* 
0134" 
0137* 
013A* 
013C* 
013F* 
013F* 
0142* 
0145" 
0146' 


0008" 
0487* 
77 6F 
00 

000E" 


76 61 


0006" 
0487* 
63 6F 
00 
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: define figurative constant 


・ main 


1 
main:: 


main0.5: 


main0.6: 


1d 
Cal1 
defb 


1d 
cal1 
defb 


1d 
Cal1 
defb 


gtoken 


nzZ,Synerr 
a, (optisw) 
>a 
a.55h 
Z,$+4 
a,65h 
putobj 
hl , (codor9) 
(cloc) 、h1 
ptloc 
hl (datorg) 
(dloc),hl 
(wloc) ,h1 
a,56h 
Ptname 
hl ,pgnati 
PrtmSg 
hl,strbuf 
prtmsg 
otrunt 
clrstb 


hl , (datorg9) 
deficn 
'_wOrk'.0 


hl .(dloc) 
deficn 
*_Var'.0 


hl (codor9) 
deficn 
*_Code'、0 


d,3eh 
e.Stptyp 
ptcod2 
a,32h 

hl .(datorg) 
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:%debug Sw on ? 


iPut Start mark 


isSet code location counter 


Set data location counter 


Put PrO9gram name 


iPTint prOgram name 
Output run time routine 
iClear Symbol table 


*"。 LD A,STOP_TYPE " 


" LD (@STPTY).A " 


de,@Stptp-@rtwOrK 


hl,de 
ptcod3 
a,Stptyp 
a 

Z,main0 

a 
nz, 右 ain0.5 
de,0ed73h 
ptcod2 
main0.6 


a,021h 
hl,retadr 
ptcod3 
a,22h 
ptcod1 


hl , (datorg) 


ihalt ? 
iret 7 
iLD (@RETAD).SP “" 


*"。 LD HL,RETURN_ADDRESS 


*"。 LD (@RETAD),HL " 


de,@retad-@rtwork 


hl ,de 
Ptcodw 
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0149' 
0149* 
014C' 
014F'* 
0151" 
0153* 
0155" 
0158' 
0159" 
015B' 
015C* 
015F'* 
0162* 
0163" 
0166' 
0168' 
0168' 
016A* 
016D' 
016D* 
016F' 
0172* 
0175* 
0176' 
0179* 
017B" 


017E* 
0181' 
0182* 
0185" 
0188" 
018A* 
018D' 
018F* 
0192* 
0195" 
0198" 
019B'* 
019E' 
01A1" 
01A2* 
01A5* 
01A8' 
01AA* 


OIAD" 
O1AD' 
01B0' 
01B3" 
01B4" 
01B7* 


3A 0004" 
2A 000A" 
CB 6F 
20 15 
3E 00* 
21 0000* 


28 0D 


11 ED7B 
CD 1964' 


CD 1966' 
18 05 


3E 31 
CD 196E* 


3E 21 

2A 0006" 
11 0000* 
CD 196E' 
3E ES 

CD 1953* 
CD 1BOF" 


32 008C" 


32 0005" 
CD 1BOF* 
3E C9 

CD 1953" 


CD 0000* 
3A 0036" 


CA 03E8" 
32 008C" 


22 008D" 
CD 049E* 
32 0037" 
3A 0036" 
FE PF 

20 04 

C3 03E8" 


FE 8F 


・ function 


functi:: 


push 
cal1 
CP1 
1d 


functi0: 


a, (oOPtiSw ) 
hl , (stkbot) 
5,a 
nz,mainl 
adSaind 

hl 、defsta 
a 

Z,mainl 

hl 
de,0ed7bh 


a,21h 

hl , (codor9) 
de,@StOp-@5tart 
hl,de 

ptcod3 

a.0e5h 

ptcod1 


gtoken 


a 
(idxpSf ) 、a 
defdcl 

・・ 
nz,SyheTr 
a,0ffh 
(stmfl9),a 
hl .(1ino) 
ddspli 
pshlea 
COmWPOU 
Poplea 


a 
(stmflg9),a 
gtoken 
a,0c9h 
ptcod1 


IISyY 
a.(tokcod ) 
a 


Z.endcom 


a 
(idxpSf ) 、a 
h,a 

1.a 
(retjad) ,hl 
af 

defdc1 


(localf ) .a 
a.(tokcod ) 
Offh 
nz.functi0 
af 

endcOm 


8fh 
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XS On ? 


iindirect 7 


" LD SP.m 


" LD SP、(DEFSTA) " 


ij" LD HL.@STOP " 


" PUSH HL “" 


rg1obal constant、variable.data 


iline number display object Out 


i( statement ... 


RET " 


eliminatiOon 1OCal Symbol 


:end 2 


:global constant.variable.data 


iend ? 


iTeCUTSiVe' 7? 


} 
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nz,functi1 


gtoken 

functil: 
d a iidentifier ? 

nz,ilferr 
hl ,idetyp 
SeaSy Search symbol table 
b,09h 
a ifound ? 
nz,functi2 
a,.(idetyP) 
89h ifunmction ? 
Z,functi1.5 
bc 


ilefun 
bc 
functi2 
functi1.5: 

0023" hl , (adrs) 
af 

19B7* ptcha iPut chain addreSSs 
bc 


funct1i2: 

000C" hl , (cloc) 
(adrs ) ,hl 
7.b 
hl,idetyp 
(hl ) .b 
Te9SyW Symbol table register 
WOVname 
a,57h 
Ptname iPut function name 
hl ,funati 
PrtmS9 
hl , Strbuf 


print fumction name 


ifunction name display object out 


nZ,Synerr 
hl , (dloc) 
(varadr) ,h1 
a 
(varsiz),a 
gtoken 


Z,functi5 


Z,functi10 
a iidentifier ? 
nz,ilnerr 
$+5 
functi3: 

gtoken 
SymChk iSymbol search & type check 
02h 
hl , (dloc) 
(adrs) .hl 
hl.idetyp 
(hl) .a 
Te9Sym Symbol table register 
hl .(dloc) 
hl 

000E" (dloc) hl 
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0008" 
0000* 


196E" 


47 
12 


ED53 

1964* 
0008" 
0002x 


functi6: 


functi7: 


functi8: 


Or 
PuSh 
Cal1 
functi9: 
CP 


JP 
functi10: 


(wloc) ,hl 
hl 、varsiZ 
a.(h1 ) 


gtoken 
Z、functi3 
Z,functi5 


) 
Z,functi10 
Synerr 


gtoken 
の 
nz,functi6 


Obfh 2 の 


nz,functi9 
gtoken 

ば や 
nz,functi8 


gtoken 


0cOh 人 ! 4 拉 
nz.functi9 


9gtoken 


の * 
nZ,SynerT 


af 

2.a 

Z,functi11 

af 

a、22h *" LD (TEMP1).HL “" 
hl (datorg) 

de,@temp-@rtwOrk 

hl de 

Ptcod3 

af 


0.a 

Z,functi12 

af 

de,0ed53h *"。 LD (TEMP2).DE " 
ptcod2 

hl 、(datorg) 

de,@temP+2-@rtwork 

hl ,de 


2-3 全 プ ログ "ラム ・ ツ ス た 


cal1 ptcodw 
POP af 
functi12: 
af 
a,(VarSiZ) 
e,a 
d,0eh 
ptcod2 
a。11h 
hl .0 
ptcod3 
hl , (Varadr) 
af 
7.a 
Z,functi13 
hl 
de,(cloc) 


LD HL.nn 


CALL @SETAG 『" 
hl 、(codor9) 
de.@setag-@5tart 
hl .de 
ptcod3 
af 
3、a 
nz、functi14 
af 
de.0dde5h 
ptcod2 
a.0ffh 
(idxpsf ) .a 
af 


1.a 
nz,functi15 
af 
de,0fde5h 
ptcod2 
a,0ffh 
(idxpSf ) ,a 
af 


2.a 

Z,functi16 

af 

de,0dd2ah iLD IX,(TEMP1) " 
ptcod2 

hl , (datorg) 

de,@temp-@rtwOrk 

hl,de 

ptcodw 

af 


0.a 

Z,functi17 

af 

de,0fd2ah  LD 、IY,(TEMP2) " 
ptcod2 

hl , (datorg) 

de,@temP+2-@rtwOrK 

hl .de 
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008D" 


19B7* 


4F 
08 


FDE1 
1964" 


5F 
08 


C9 
1953" 
O1AD' 
19B2* 
000E" 
52 


1966* 
000C" 


000C" 
19B2* 
OIAD' 


0000* 


FF 
0000* 


functi17: 


nZ,SyYnerT 


gtoken 
a.0ffh 
defdcl 
・ 
nz,Synerr 
a.0ffh 
(stmflg),a 
hl .(1ino) 
に ) り 9 
pshlea 
COmPOU 
poplea 


a 
(stmflg)、a 
gtoken 


hl , (retjad ) 
ah 

1 

nz,ptcha 
af 

1.a 
nz,functi18 
af 
de,0fdelh 
ptcod2 

af 


3,a 
nz.functi19 
af 
de.0ddelh 
Ptcod2 


axa 
nc.functi 


hl . (dloc) 
a 

hl ,de 
ptcodw 
hl ,(cloc) 
hl 

hl 

(cloc) ,h1l 
ptloc 
functi 


: end Of Compile 


endCOm: : 


ilocal constant,variable、data 


iline number display object out 


i( statement ... } 


put chain address 


iput location count 


*put word code 


iput location count 


iPut global Symbol 
iPut end mark 


2-3 会 プロ グラ ムツ スム 


13.10,"Program name: 


13,10,*Function name : 


time routine relocating out x% 


0000x bc,@prog-@Start 
0000* hl ,@start 
21 0000* ix,crelat 
21 0000x iy,drelat 


a,1 
(ix) iTelocate ? 
nz,Otrunt2 


iTelocating code segment addreSS 


hl , (codor9) 
hl,de 
otrunt4 
otrunt2: 
a,1 
(iy) irelocate ? 
nz,otrunt3 
a.h 
(iy+1) 
nz,otrunt3 
iy 
iy 
de,@rtwork iTelocating data segment addreSss 


0008" hl . (datorg) 
hl ,de 
08 J otrunt4 
otrunt3: 


3,(h] ) 

hl 

bc 

ptcod1 *put byte code 
otrunt5 


bc 
push bc 


289 


call ptcodw iPut word code 


0474* otrunt5: 
0474′ Cl Pop bc 
POP 


C 
nz,otruntl 


A9 


000E" hl , (dloc) 
047F* 11 0000* 1d de,@Var-@rtwork 
0482* 19 add hl.de 

2 000E" (dloc) ,hl 


iTeSeTVe rum time wOrK 


define figurative conSstant xx 


hl ・ ConStant Value 


1 m(Sp+1,Sp): constant name addreSs 
0487′ 22 0023" 1d (adrs) ,hl 
048A' 21 0016" 1d hl 、idetyp 
048D' 36 01 1d (hl1),01h :g1obal constant 


de 


a, (de) 


0491 13 inmc de 

0492′ 23 inc hl 

0493′ 77 1d (hl),a 

0494′ B7 【 り g a 

0495'′ 20F9 Jr nz.deficnl 

0497′ D5 push de 

0498′ 21 0016" 1d hl,idetyp 

049B" C3 0000x Jp Te9SymW iSymbol table register 


xxX CoOnStant definition & variable、data declare xx 


049E* defdcl:: : a : 00hsblobal. not 00h=local 
0037" (1ocalf ) ,a 


0036" 


04A4′ FE 25 CP '%「 :%include、%break.%tron.%troff ? 
04A6' 20 08 Jr nz,defdc12 、 

04A8'" CD 1BOF' ca1l1 gtoken 

04AB' CD 0715" cal1 iclstm 


defdcl1 


8ch 
04B2′ 20 05 Jr nz,defdc13 
04B4′ CD 04CA" Cal1 Condef 
defdcl1 


8dh 


04BB' 20 05 Jr nz,defdc14 

04BD' CD 050F* Cal1 VardC1 

04CO' 18 DF Jr defdcl1 

04C2* defdc14: 

04C2′ FE 8E Cp 8eh idata' 9? 
04C4′ CO ret nz 

04C5' CD 05AC" Cal1 datdc1 

04C8′ 18 D7 Jr defdcl1 


, Constant definition 


04CA* condef hn 


04CA' CD 1BOF* Ca1l1 9token 
04CD' 3D dec a :identifier ? 
04CE′ C2 1F06* JP nz.ilnerr 
0662* cal1 SymChk Symbol search & type check 


2-3 全 プ ログ "ラム ・ グ スム 


04D4′ F6 01 Or Oih type = Constant name 
04D6′ 01 000D 1d bc.adrs-idetyp 
04D9′ 21 0016" 1d hl.idetyp 
04DC′ 77 1d (hl ) .a | 
04DD'′ CD IAF3" cal1 blkpsh iblock push 
04E0O' CD 1BOF' cal1 gtoken 
04E3′ FEFO CP 0fOh 2: 
03E5' C2 200E" JP nzZ.Synerr 
04E8′ CD 1BOF' cal1 gtoken 
04EB' CD 19C7* cal1 ConexP Constant expression 
04EE' 22 0023" 1d (adrs) 、hl 
04F1′ 01 000D 1d bc.adrs-idetyp 
04F4′ 21 0016" 1d hl .idetyp 
04F7′ CD 1B03" Cal1 blkpop :block pop 
04FA' 21 0016" 1d hl、idetyp 
04FD' CD 0000x cal1 Te9Sym Symbol] table register 
0500′ 3A 0036" 1d a、( tokcod ) 
0503′ FE 2C CP の 
0505′ 28 C3 Jr Z,Condef 
0507′ FE 3B CP 2 
0509′ C2 200E' JP nZ,Synerr 
050C′ C3 1BOF* JP gtoken 
・ variable declare 
050F* VardCl:: 
050F' CD 1BOF" Cal1 9token 
0512′ 3D dec a iidentifier ? 
0513′ C2 1F06' JP nz、ilnerr 
0516' CD 0662" Cal1 SymChk iSymbol search & type check 
0519′ F6 02 Or 02h itype = Variable name 
051B" 2A 000E" 1d hl , (dloc) 
OS5IE' 22 0088" 1d (varadr ) ,hl 
0521′ 21 0001 1d hl ,1 
0524′ 22 008A" 1d (varsiz) 、hl 
0527* 01 000D 1d bc.adrs-idetyp 
052A* 21 0016" 1d hl,idetyp 
052D* 77 1d (hl ) ,a 
052E' CDIAF3′ cal1 blkpsh iblock push 
0531′ CD 1BOF' Cal1 gtoken 
0534′ FE 5B CP 0 9 
0536′ 20 14 Jr nZ,Vardcl 1 
0538′ CD 1BOF' Cal1 gtoken 
053B' CD 19C7* cal1 COnexXp iConStant expreSSion 
053E' 22 008A" 1d (VarsiZ) ,hl 


nZ,Synerr 
gtoken 
VardCl1: 
Obeh 
nz,Vardc12 
gtoken 
・(・ 


nzZ.Synerr 
9token 
COneXP Constant expreSsion 


(varadr ) , hl 
hl .0 
(VarSiz) , hl 
a, (tokcod ) 
いり ・ 
nZ.Synerr 
gtoken 
Vardc12: 
hl , (varadr ) 
(adrs) 、hl 
bc,adrs-idetyp 
hl,idetyp 
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1B03" 
0581′ 21 0016" 
0584′ CD 0000x 
0587′ 2A 000E" 
058A′ ED 5B 008A" 


058F' 22 000E" 


0598′ FE 2C 
059A' CA 050F"' 
059D'′ FE 3B 


05A5' 

05A5′ 3E 02 
05A7′ 32 0038" 
05AA* 18 18 
05AC* 

05AC' 3E 01 
OS5AE' 32 0038" 
05B1 3E C3 


05BD′ 2B 
05BE' 22 0084" 
05C1 


05C1'′ CD IBOF' 
05C4′ 3A 0038" 


05C7′ 3D 

05C8′ 20 27 
05CA'′ 3A 0036" 
05CD' 3D 

05CE'" 32031 
05DO0′ 2A 0000" 
05D3′ 7E 

05D4′ FE 3A 
05D6′ 20 19 
05D8′ 23 


05D9′ 22 0000" 


05F1" 

0O5F1′ 3A 0036" 
05F4′ FE 22 
05F6' 20 2E 


blkpop 
hl 、idetyp 
Te9SyW 

hl , (dloc) 
de,(VarSiZ) 
hl de 
(dloc) hl 
(wloc) 、hl 
a, (tokcod) 


Z.Vardcl 
nzZ.Synerr 
gtoken 


block Pop 


ijSymbo] table register 


i: data declare & inline statement 


inlstm:: 


datdcl:: 


datdcl1: 


datdc12: 


datdc13: 


datdc14: 
1 


a,2 
(datinl) .a 
datdc12 


a,1 
(datinl),a 
a、0c3h 

hl .0 
ptcod3 

hl (cloc) 
hl 

hl 
(skpadr ) 、hl 


gtoken 
a, (datinl ) 


a 
nz,datdc13 
a, (tokcod ) 


a 
nz.datdc13 
hl .(cptr) 
3,(h1 ) 


nz、datdc13 
hl 
(cptr ) ,hl 
SymChk 
03h 

hl (cloc) 
(adrs) ,hl 
hl.idetyp 
(hl ) 、a 
Te9Sym 
gtoken 


a,(tokcod ) 


TE 


nz,datdc16 
hl .(cptr) 


Z,datdc15 


:data declare ? 


data name ? 


Symbol search & type check 
itype = data name 


Symbol table register 


:String ? 


2-3 全 プ ログ ラム ・ ク スム 


hl 
0608′ 22 0000" 1d (cptr ) ,hl 
060B' CD 1BOF"* cal1 gtoken 
) datdc18 


に 1 
nz,datdc15.5 
hl 


(cptr ) 、h1l 
0617' CD IF48" ca11 bstrdt 


061A' CD 1BOF* ca11 gtoken 

061D' 18 26 Jr datdc18 

061F* datdc1l5.5: 

0O61F′ E5 push hl 

0620' CD 1953" Cal1 ptcod1 iput byte object 
0623′ El Pop hl 

0624* 18 D5 Jr datdc14 

0626' datdc16: 

0626'* FE 23 CP *#* 


*"wOord′ 7? 

062C* 20 0B Jr nz.datdcl17 
062E' CD 1IBOF"* Cal1 gtoken 
0631′ CD 1A01" Cal1 wodcon *wOrd constant 
0634′ CD 1966" cal1 ptcodw *Put word object 
0637* 18 0C Jr datdc18 
0639* datdc17: 
0639′ FE 91 CP 91h Sbyte' 3 
063B′ CC 1BOF'* Cal1 Z、gtoken 
063E′ CD 19ED'* Ca11 bytcon ibyte constant 
0641* 7D 1d a,1 
0642" CD 1953* Cal1 ptcod1 ・Put byte object 
0645* datdc18: 
0645' 3A 0036" 1d a.(tokcod ) 
0648′ EE 2C Cp に 
064A'′ CA 05C1" JP Z.datdc1l1 
064D' FE 3B CP 2 
064F' C2 200E" JP nz.Synerr 
0652′ 21 0038" 1d hl .datinl 
0655* 7E 1d (hl ) 
0656' 36 00 1d (hl)、0 
0658* 3D dec a data declare ? 
0659' 2A 0084" 1d hl .(Skpadr ) 
065C′ CC 19B7* Ca1l1 Z.ptcha *Put chajnt addreSSs 
065F' C3 1BOF'* 上 Jp gtoken 

search Symbol table & type check 
0662* SymChk: : 
0662′ 21 0016" 1d hl.idetyp 
0665'′ CD 0000* Cal 1 SeaSym *Search Symbol table 
0668′ BZ Or a :found ? 
0669′ 20 13 JY nZ.SymChK2 
066B′ 3A 0037" 1d a.(1ocalf ) 
066E' B7 Or 3 
066F' 20 05 Jr nz.Symchk1 
0671′ CD IFIA' cal1 ilenam 
0674" 18 08 Jr SymChk2 
0676' SymcChk1 : 
0676' 3A 0016" 1d a.(idetyP) 
0679′ CB 67 bit 4、a 


nz、ilenam 


0037" a.(1ocalf ) 
0681′ BZ or a 


0682′ C8 ret 
0683′ 3E 10 1d 3a.10h 
0685′ C9 6 ret 
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XX Statement  ※% 


a,( tokcod ) 

a iidentifier ? 
nz statem2 

hl , (cptr) 

a,(h1l ) 

0 ilabel ? 
nz,Statem2 


Z,Statem2 

(cptr ) , hl 

hl,idetyp 

SeaSym isSearch symbol table 
上 ! ・found ? 
nz,Stateml 

a, (idetypP) 

4.a 91obal ? 
Z,Stateml 

98h iundefined label ? 
Z,Statem0 

ilelab 

stateml 


hl , (adrS) 
ptcha iPut chain addreSSs 


hl ,(cloC) 

(adrs) hl 

hl,idetyp 

(hl ) .18h 

Te9Sym iSymbol table register 
gtoken 


Propt ipreset operand table pointer 

a, (tokcod ) 

hl stmcod 

bc.Stmcode-Stmcod 
iSearch 

nz,idxOpr 

a,Stmcode-StmcCod- 1 

(9 

a・a 

Ca 

hl Stmadr 


1BOF* ) gtoken 


25 7B stmcod: defb い %(" 

0 96 98 9B defb 90h.96h.98h.9bh :"inline'、while'、for'.『 
9E 9D 9C defb 93h.9eh.9dh.9ch :"if'、'exit'。gotO' 90" 
A0 defb 9fh.0a0h ・return'.'StoOP' 

Stmcode equ $ 


0787′ 0715′ stmadr: defw dumstm、iCl1Stm,ComStm、inlStm 
075C' 05A5" 

0796'07CC* defw whiStm、forStm、1opStm.ifstm 
0902′ 09F7* 

0A7B' 0A9B" defw extstm、gotstm、goStm.rretstm 
0A93′0AF1" 

0B16' defw Stpstm 
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2-3 全 プ ログ "ラム ・ ク スム 


・ %include statement 


%include d:filename.tyP: 


0715" iclstmi: 


0715′ FE 81 CP 81h - inClude ? 

0717′ 20 06 Jr nz.brkstm 

0719′ CD 0000* Cal1 inclu iinclude file open 
071C' C3 1BOF" R JP gtoken 


: %break statement 


i %break: 
071IF* brkStm:: 
07I1F′ FE 8B CP 8bh ibreak ? 
0721′ 20 15 Jr nz,tronst 
0723′ CD 1BOF* cal1 9gtoken 
0726′ FE 3B Cp 4 
0728′ C2 200E" JP nzZ.Synerr 
072B* 3A 0005" 1d 3a,(Stmfl9) 
072E' B7 Or a Statement compile ? 
072F' CA 200E" JP Z、Synerr 
0732′ CD 0000* ca11 Pbreak iput break object 


gtoken 


Statement 


85h 


073A'′ 20 0E Jr nz,trofst 

073C′ CD 1BOF" Cal1 gtoken 

073F′ FE 3B CP 机 吉 

0741′ C2 200E' JP nZ,SynerT 

0744′ CD 0000* cal1 tron xtrace on 


gtoken 


: %troff Statement 


%troffx 
Tofst:: 


dec a itroff 9 
JP nZ,Synerr 

Cal1 gtoken 

CP 攻 旬 

JP nZ、Synerr 

Cal1 troff itrace off 
JP gtoken 


i COmPOund, until statement 


{( statement ... } 
comStm:: 
cal1 pshlea 
Cal1 COmPoul 


H { statement ... ) umtil exp: 
cal1 gtoken 
CP 97h "until 2 
RI nzZ ,COmStml 
cal1 Propt 
cal1 9token 
Ca11 eXPYeS iexPrTeSSion 
1d a.0b7h A 『" 
Cal1 ptcod1 
1d hl , (lopadr ) 
1d a,28h "JR Z.LOPADR " or 
Cal1 ptjr 
1d a.0cah JP  Z、LOPADR " 
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0781′ DC 196E" Ca11 c.ptcod3 


0784' ComStml: 
0784′ CD 0B5D" Ccal1 poplea 
0787* dumStm: 
0787′ C9 ret 
0788" COmPOU: ! 
0788′ CD 1BOF' Cal1 9token 
078B' COmPOu1 : 
078B' CD 0686' Cal1 Statem iStatement 
078E' 3A 0036" 1d a、( tokcod ) 
0791′ FE 7D CP "0 
0793′ 20 F6 Jr nz ,COmPoul 
0795* C9 ret 
・ while statement 
while exp ( statement ... } 
0796" whistmi: 
0796′ CD 0B45" Cal1 pshlea 
0799′ CD 0ODBA* cal1 eXPTe :exPTeSS1On 
079C′ FE 7B CP 
079E'* C2 200E'* JP nzZ、Synerr 
07A1" 3E B7 1d a.0b7h ・" OR 人 
07A3" CD 1953* Cal1 ptcod1 
07A6' 3E CA 1d a.0cah 。 到 計 。 弓 江 
07A8′ 21 0000 1d hl .0 
07AB' CD 196E" cal1 ptcod3 
07AE' 2A 000C" 1d hl 、(cloc) 
07B1'′ 2B dec hl 
07B2′ 2B dec hl 
07B3'* 22 007C" 1d (extadr ) .hl 
07B6' CD 0788" Cal1 COmPOu ・{ statement ...)}) 
07B9' 2A 007A" 1d hl .(1opadr ) 
07BC* 3E 18 1d a,18h *" JR LOPADR " or 
07BE' CD 0B2A* cal1 Ptjr 
07C1′ SEGS 1d a.0c3h 
07C3* DC 196E'* ca11 Cc、ptcod3 ・" JP LOPADR " 
07C6' CD 0B5D' Cal1 Poplea 
07C9′ C3 1BOF'* Jp gtoken 
: for statement 
・ for var := exp_ 1 to exp_2 by exp_3 ( statement ... 
07CC* forStm:: 
07CC* 3D dec a iidentifier ? 
07CD' C2 200E" JP nz.Synerr 
07D0'′ 21 0016" 1d hl、idetyp 
07D3′ CD 0000* cal1 SeaSym iSerach symbol table 
07D6' B7 Or a ifound ? 
07D7′ C4 1E74" Cal1 nZ.miSVvar 
07DA' 21 0016" 1d hl,idetyp 
07DD′ 7E 1d a,(hl ) 
07DE′ E6 2F and 2fh 
07E0′ FE 02 CP 2 ivariable name ? 
07E2' C2 200E' JP nz,Synerr 
07E5′ 01 000F 1d bc,adrs-idetyp+2 
07E8' CD 1AF3* Cal1 blkpsh iblockK push 
07EB' 21 0016" 1d hl,idetyp 
07EE'′ CBEE set 5,(h1) 
07F0'′ CD 0000x cal1 Te9Sym iSymbol table register 
07F3' 01 0006 1d bc.6 
07F6' 21 007E" 1d hl ,convar 
07F9′ CD 1AF3* cal1 blkpsh PuSh convar.terpar、incPpar 
1d hl , (adrS) 
1d (convar ) 、hl 
Cal11 gtoken 
CP OfOh HE に 寺 / 
JP nz,SynerT 


2-3 全 プ ログ "ラム ・ ツ スム 


1BOF* Cal1 gtoken 
CD ODBA" cal1 XPTe ieXxPTeSSion_1 
FE 99 CP 99h itO' 7 
200E* Jp nz,.Synerr 
3E 32 1d a,32h 7 LD (CONVAR).A " 
007E" 1d hl , (convar ) 
196E' cal1 ptcod3 
1BOF* cal1 gtoken 
0DBA' Cal1 eXPTe ieXxPTeSSiOon_2 
0010" 1d hl , (wloc) 
push hl 
0080" 1d (terpar ) ,h1 
08DD' cal1 forstm8 
32 1d a,32h j LD (TERPAR)JA " 
dec hl 
196E* Cal1 ptcod3 
0000 1d hl,0 
0082" 1d (incpar ) ,h1 
0036" 1d a, (tokcod) 
7B CP 本 
1F Jr Z,forStml 
9A CP 9ah sby′? 
200E" JP nZ,Synerr 
1BOF* cal1 gtoken 
0DBA" Cal1 eXPTe iexpPreSSion_3 
7B CP 5 
200E* JP nZ,Synerr 
0010" 1d hl , (wloc) 
0082" 1d (incpar ) .hl 
08DD* Ca11 forstm8 
1d a,32h "  LD (INCPAR).A " 
dec hl 
196E cal1 ptcod3 
forstml: 
0B45* cal1 pshlea 
0080" 1d hl .(terpar ) 
183D* Cal1 stoptb OpPr1 = terminal parameter address 
007E" 1d hl (convar ) 
183D* cal1 stoptb *Opr2 = control variable address 
08EE" 1d hl ,forobj1 
189A' Cal1 codgen0 Code 9anerate 
000C" 1d hl (cl1oc) 
dec hl 
dec hl 
007C" 1d (extadr ) hl 
0788" Cal1l COmPOU ・( statement ... } 
0082" 1d hl .(incPar ) 
ld a.h 
Or 1 
Jr nz 、forstm3 
007E" 1d hl .(convar ) 
: 1d a,21h 7 LD HL.CONVAR " 
196E" call ptood3 
1d a.34h ji INC (HL) " 
1953* cal1 ptcod1 
007A" 1d hl ,(lopadr) 
1d a、20h :" JR NZ.LOPADR "or 
0B2A* cal 1 ptjr 
1d a,0c2h 7 JP NZ.LOPADR " 
Jr forstm4 
forstm3: 
183D* Cal1 stoptb iOprl = incrementation parameter addreSS 
007E" 1d hl , (conVar ) 
183D* Cal1 stoptb *OPr2 = control Variable addreSs 
08F9" 1d hl ,forobJ2 
189A'* cal1 codgen0 Code generate 
007A" 1d hl ,(lopadr ) 
1d a,30h :" JR NC.LOPADR "or 
0B2A* ca11 Ptjr 
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D2 

forstm4: 
196E" 
0B5D' 


0010" 
0006 

007E" 
1B03' 
000F 

0016" 
1B03* 
0016" 
0000* 
1BOF* 


forstm8: 


0010" 
000E" 
52 


000E" 


forobj1: 


forobJ2: 


defb 
1d 
1d 
sub 


Jp 
defb 
1d 


1d 
add 
1d 


a,0d2h 7 JP  NC,LOPADR " 


Cc,ptcod3 
Popl ea 


hl 

(wloc) ,hl 

bc,6 

hl ,convar 

blkpop iPOP incPar、terPar,ConVar 
bc,adrs-idetyp+2 

hl ,idetyp 

blkpop block pop 

hl ,idetyp 

Te9Sym :Symbol table register 
9token 


hl , (dloc) 

a 

hl.de ・ dloc >= wloc ? 
de,hl 

nC ireturn if so 
(dloc) ,hl 


10 
a,(oprlw) 
hl,opr2w 
(hl ) 

C,0 

8 

a, (opriw) 
hl .opr2w 
a,(h1 ) 
(hl).a 


: loop statement 


OPStm: : 


0023" 
007E" 
1BOF'* 
2C 

200E" 
1BOF* 


loop var、exp ( statement ... 


・ 
Z,lopstb 

a 

nZ,Synerr 

hl,idetyp 

SeaSy 思 SearCh Symbol table 
a ifound ? 

nZ,1SVar 

hl 、idetyp 

a.(h1 ) 

2fh 

2 ivariable name ? 
nZ.SynerT 

bc.adrs-idetyp+2 

blkpsh block push 

hl ,idetyp 

5、(h1 ) 

Te9Sym iSymbol table register 
hl .(convar ) 

hl 

hl .(adrs) 

(convar ) .hl 

9gtoken 


nZ,Synerr 
gtoken 


2-3 全 プ ログ "ラム ・ ク スム 


*exPTeSSiOn 


nz.Synerr 

a.32h *"。 LD (CONVAR).A “" 
hl .(convar ) 

ptcod3 

pshlea 

COmPOU ・ statement ... }) 
a.21h iLD HL.CONVAR " 
hl , (convar ) 

ptcod3 

a.35h DEC (HL) " 
ptcodI 

hl,(lopadr) 

a,20h 上 JR NZ、LOPADR " or 
ptjr 

a.0c2h 

C,ptcod3 "JP NZ.LOPADR " 
Poplea 

hl 

(convar ) 、h1 

bc.adrs-idetyp+2 

hl、idetyp 

blkpop iblock pop 
hl,idetyp 

Te9Sym Symbol table register 
gtoken 


loop ##。 exp ( Statement ... 


hl 、1oopb 
a, (hl ) 
a 


nZ,SyneTT 


(hl ) .a 
gtoken 


nZ,Synerr 
9token 
1og9eXP ieXPreSSion 
b,a 

a, (optble) 
a 
nZ,eXPerT 
a,b 

・・ 
nz,Synerr 
(1y-3) 


a 

Z,lopStb2 

hl,1dexa 

a 

Z,lopstb1 

hl,ldbim 

Codgen :code generate 
1opstb3 


codgen iCode 9enerate 


a,47h DD Bs 作 間 
ptcod1 


pshlea 

COmPOU H statement ...} 
hl , (lopadr) 

a、10h "DJNZ LOPADR "or 
ptjr 

nc,1opStb4 
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05 "DEC B " 
1953" 


C2 ij JP NZ、LOPADR " 
196E" 
1opstb4: 


0039" 
0B5D・ 
1BOF" - gtoken 


defb 2 
B8 - 1d b.oprlb 


exp then statement_1 else statement_2 
fstmi: 
0086" hl .(nxtadr ) 
hl 
0084" hl (skpadr ) 
hl 
hl .0 
(nxtadr ) 、hl 
(skpadr ) hl 


eXPTe ・expreSSion 
94h に then' ? 
nZ.Synerr 
a.0b7h 計 OR A " 
ptcod1 
a.0cah の 包 当 研 " 
hl ,0 
ptcod3 
hl 、(cloC) 
hl 
hl 
(skpadr ) , hl 
gtoken 
Statem iStatement_1 
a, (tokcod ) 
0bdh elseif' 2 
Z,ifstm4 
095h "else' ? 
Z,ifstm2 
hl ,(Skpadr ) 
ptcha iPut chain addreSS 
ifstm3 
ifstm2: 
9token 
93h 7 ダ 
Z,jifStm4 
ifstm5 
statem iStatement_2 
ifstm3: 

0086" hl , (nxtadr ) 
a.h 
1 

19B7* nz,ptcha iPut chainm address 
hl 

0084" (skpadr ) 、h1 
hl 


0086" (nxtadr ) , hl 
0A64" 1fstm5 


1BOF* gtoken 
18 A4 ) ifstml 


2-3 全 プ ログ "ラム ・ ク スム 


hl , (nxtadr) 
a,0c3h "JP NXTADR " 
ptcod3 
hl , (Skpadr ) 
ptcha iput chain addreSs 
hl ,(cloc) 
hl 
hl 
0086" (nxtadr ) ,hl 


i: exit Statement 
H exXit : 
extstm:: 


nZ,Synerr 
a.0c3h 

hl , (extadr ) 
ptcod3 

hl , (cloc) 
hl 

hl 
(extadr ) , hl 
gtoken 


・ goto statement 


goto label: go to label: 


99h StO" ? 
nzZ.Synerr 
gtoken 


9o5tm:: 


9otstm: : 
a 
nzZ,SynerT 
hl.idetyp 
SeaSym Search symbol table 
a found ? 
Z、9Otstml 
a.98h 
(idetyp) ,a 
hl,0 
(adrs),hl 
9otStm2 
9otStm1 : 
a,(idetypP) 
b,a 
0fh 
8 
nzZ,Synerr 
hl .(adrs) 
ab 
EE-! idefined label ? 
C,9otstm2 
a、18h i:" JR LABEL "or 
ptjr 
a,0c3h "JP LABEL " 
C,ptcod3 
9otstm3 


gotstm2: 
1 


a.0c3h 
ptcod3 
hl .(cloc) 


hl 
0023" (adrs),hl 
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008D" 
05 


C9 
1953* 


1BOF* 


5B 000C" 


: Jump addreSs 


Symbol table register 


iindex puSh ? 


< 
* 


< 
* 


1d hl.idetyp 
Cal1 Te9Sym 
gotstm3: 
Ccal1 gtoken 
CP 隊 3 
JP nZ,SynerT 
. JP gtoken 
: return statement 
H return * 
retstm:: 
CP 5 
JP TnZ,SyneTT 
1d a,(idxpSf ) 
Or a 
Jr Z,retstm1 
1d a,0c3h 
1d hl .(retjad) 
Cal1 ptcod3 
1d hl , (cloCc) 
dec hl 
dec hl 
1d (retjad) .h1 
Jr retstm2 
retstm1: 
1d a,0c9h 
cal1 ptcod1 
retstm2: 
JP gtoken 
・ Stop Statement 
3 Stop 
StpStm:: 
CP 
JP nz,Synerr 
1d a,0c3h 
1d hl , (codor9) 
1d de.@stop-@start 
add hl.de 
cal1 ptcod3 
JP gtoken 
H XX PUt TelatiVe JUmP xx 
ptjrii  ・ a : OP Code 
* hl 
push hl 
push af 


JP RETJAD 『" 


RET " 


JP @STOP " 


2-3 全 プ ログ ラム ・ グ スム 


H xx PuSh loop addreSS, exXit jump addreSS & PTeSet xx 


pshlea:: 

E1 ix 

007A" hl ,(lopadr) 
hl 

007C" hl , (extadr ) 
hl 

0000 hl,0 

007C" (extadr ) ,h1 

000C" hl ,(cloc) 

007A" (1opadr ) ,h1 

) (ix) 


1oop addreSS、 exit jumpP addreSS %% 


ix 

hl , (extadr ) 

ah 

1 

nz ,ptcha iPut chain address 


007C" (extadr ) .h1 
hl 
007A" (1opadr ) , hl 
DD E9 (ix) 
H index operation x% 
idxopr:: 
0036" a,(tokcod ) 
0alh "set' or "1dx' or "stx' or "inx' or "dex' ? 
C,eXPYGS 
5 


TnC,CXPT'eS 


hl ,idopad 


9token 


0B97′ 0C44′ idopad: idxSet,1dx、Stx,inx,dex 
0CED' 0D9D' 
0DA0' 


index : 
index : 


= COnSt +- eXPreSS1iOn・ 
= imdeXx +- eXPreSSiOni 
Obfh 93 拉 0 
Z。idxset1 

1 が 
nz,idxerr 


af 

gtoken 
0fOh 
nz、idxerr 
gtoken 
Obfh 
Z,idxSet2 
1 


Z,idxSet2 
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CD 1A01'* Cal1 wodcon 


3E 02 1d 3.2 
18 05 Jr idxset3 
idxSet2: 

F5 PuSh af 

CD 1BOF'* cal1 9token 

F1 POP af 

idxset3: 

D1 POP de 

5F 1d に | 
0BC2′ 3A 0036" 1d a、( tokcod ) 
OBC5′ FE 3B CP 4 
OBC7′ 28 43 Jr Z、idxSet7 
0BC9' FE 2B CP 2 
0BCB* 28 05 Jr Z、idxSet4 
0BCD* D6 2D Sub 4 
OBCF' C2 2022* JP nz、idxerr 
0BD2' idxset4: 
0BD2 F5 PuSh af 
0BD3 D5 Push de 
0BD4 E5 PuSh hl 
0BD5 CD 1BOF' cal1 gtoken 
0BD8′ CD 0ODAF"* Cal1 eXPTeS ・eXPTeSSiOn 
0BDB E1 POP hl 
0BDC DI Pop de 
0BDD D5 push de 
0BDE CD 0C12* cal1 idxset10 
0BE1 D1 POP de 
0BE2 15 dec d 
0BE3* 16 DD 1d d、0ddh ・index ix 
0BES 20 02 Jr nZ,$+4 
OBE7′ 16FD 1d d.0fdh iindex jiy 
0BE9' IE 19 1d e.19h 
0BEB 四 POP af 
0BEC D5 PuSh de 
0BED B7 or a 
0BEE 28 0A Jr Z.idxSet5 
0BF0 3E 5F 1d a,5fh H LD E.A " 
0BF2 21 0016 1d hl .16h LED DO * 
0BFS CD 196E" cal1 ptcod3 
0BF8" 18 0E Jr idxset6 


de,2fSfh 

ptcod2 

a,16h 

hl,13ffh 

ptcod3 
idxset6: 

de 1 ADD IX.DE " or " ADD IY.DE" 

ptcod2 
idxSet7: 

idxset10 

gtoken 


・" PUSH IX 


de,0fdelh 4 
ptcod2 


a 
nz,idxSet12 
de,0fde5h 
ptcod2 


2-3 全 プ ログ ラム ・ グ スル 


ld 


JP 
idxset12: 


iP LD IXmn "or " LD  IY.nn “" 


:= Var[ exP ]: 


nz,idxerr 


de 

gtoken 

0fOh 

nz,idxerr 

9tOKen 

a 

nz、idxXerT 

hl ,idetyp 

SeaSy 凍 ・Search symbol table 
a *found ? 

nZ 、1SVar 

hl , (adrs) 

a,(idetyp) 

0fh 

2 :Variable name ? 
Z, ldx2 

上 ! data name ? 
nz,idxerr 


hl 
9token 
・[・ 


nz,ldx6 
gtoken 
1ogexP *exPreSSion 
a, (optble) 
a 
nzZ,eXPerT 
a,( tokcod ) 
iD 
nz,idxerr 
gtoken 

a,( jiy-3) 

2 


Z,1dx5 

a iexPTeSSion ? 
Z,1dx3 

hl ,1dxobj1 

Codgen iCode 9enerate 


hl 

Stoptb iStore operand table 
hl 、1dxobJ2 

cod 


iConstant ? 


"POP IX "or " POP IY“" 
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1dx7 


OCBC′ El 

OCBD' FD 7EFE 

OCCO' 85 

OCC1′ 6F 

0OCC2'" 30 01 

0CC4′ 24 

OCC5' FE 

0OCC6' 1dx6: 
0OCC6′ El 

0OCC7′ BE3 

OCC8' EB 

0CC9* 1E 2A 

OCCB' CD 1964" 

OCCE′ 品 

OCCF′ CD 1966* 

0CD2* 1dx7: 
0OCD2'′ 3A 0036" 

OCD5'′ FE 3B 

OCD7′ CA 1BOF"* 

OCDA' C3 2022" _ 
OCDD′ 03 1dxobJ1 : 
OCDE'′ 3A B9B9 

OCE1′ 0B 1dxobJ2: 
OCE2′ 5F 

0CE3* 16 00 

OCE5'′ 21 B9B9 

0CE8* 19 

OCE9′ 5E 

OCEA'′ 23 

OCEB'" 56 

OCEC' D5 
0CED' Stx:: 
OCED'′ 3D 

OCEE'′ C2 2022* 

0CF1′ 21 0016" 

OCF4′ CD 0000* 

OCF7′ B7 

OCF8′ C4 1E74" 

OCFB' 2A 0023" 

OCFE' 3A 0016" 

ODO1′ E6 0F 

0D03′ FE 02 

ODO05′ C2 2022* 

OD08′ E5 

0D09′ CD 1BOF"* 

0DOC'′ FE 5B 

ODOE′ 20 5C 

0OD10 CD 1BOF* 

OD13′ CD 0ODF5" 

OD16 3A 003B" 

OD19 3D 

ODIA′ C2 203D'* 

OD1D 3A 0036" 

0D20 FE 5D 

0D22"  C2 2022* 

0D25′ PFD 7E FD 

0OD28′ FE 02 

OD2A′ 28 33 

OD2C′ 8B7 

OD2D′ 28 06 

OD2F' 21 OCDD' 

0D32′ CD 188F* 

0D35" Stx1: 


hl 
a,(iy-2) 
a,1 

1,a 
nC,$+3 
h 

0feh 


・hl := hl + opY 
・ Skip 1 byte 


e.2ah *" LD 1IX.(nmn) "or " LD IY.(mn) " 


a, (tokcod ) 


Z、.gtoken 


idxerr ・error : bad index operation 


3、(Oprlw) 


11 

e・a 

d.0 
hl.opriw 
hl 、de 


Var[ exp ] := index: 
a 
nz,idxerr 
hl .idetyp 
SeaSym 

a 
nZ、miSVar 
hl .(adrs) 
a.(idetyp) 
Ofh 


・SearCh symbol table 
・found ? 


妥 
nz.idxerr 
hl 

9token 


ivariable name ? 


1ogexp ・eXPTeSSion 
a,(optble) 

a 

nzZ.exPerr 

a,( tokcod ) 


・ ゝ Constant ? 
Z,Stx2 

a 

Z.Stx1l 
hl,1dxobjl 
codgen 


ieXPTeSSiOn ? 


・Code 9enerate 


2-3 会 プロ グラ ム ・ グ スム 


hl 

stoptb ijStore operand table 
hl , stxobj1 

Codgen 

gtoken 

0fOh 

nz,idxerr 

gtoken 

d, Oddh iindex jiX 

Obfh 

Z,$+4 

d,0fdh iindex jiy 

e,Oe5h s" PASHIX "or " PUSHIY" 
ptcod2 

hl ,Stxobj2 

codgen 

Stx4 


hl 
3,(iy-2) 


> hl := hl + opT 
gtoken 
OfOh 
nz,idxerT 


gtoken 
iindex ix 


iindex iy 


gtoken 


D 


stxobJ1 : 


StxobJ2: 


(hl ) .d 
index: 


6・23h 
2Ih *Skip 2 byte 


index: 


e.2bh 

d.0ddh index ix 
Obfh 

Z.$+14 

d.0fdh iindex jiy 
ptcod2 
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ODAD' 


eXPTeS:・ 


eXPYe:: 


eXPr0: 


eXPY1: 
XPT2: 


eXPT5: 


exPr6: 


1dexa: 
1dime: 


XOYa: 


Jr 


Stx4 


XX% eXPTeSS1O  ※X% 


cal1 
CP 
JP 
JP 


exPr0 


Z、9token 
eXPerTT ierror : bad expression 


Propt ipreSet operand table pointer 


exXPF2 *make eXPFeSSion object 
a,(optble) Check 

a 

nz.eXPeTT 

a,(tokcod ) 


a 
(puhptf ) 、a 


1ogexp :logical exPreSSion 


8.( jiy-3) 
a 


と 
hl,1dexa 
a 
Z,eXpr6 
hl .xora 
a,(iy-2) 
a 1iZerO ? 
Z,eXPY6 

hl,1dime 


codgen Code generate 


-3 

a, (oprlw) 
-2 
a,Oprlb 
0 

a 


1ogtem0 logical term 


a,(toKcod) 

0a6h xOT' 7 
Z、logexp6 

0a7h or' 9? 
Z,1ogexP4 

ID 


Z,1ogexP4 
・ 


Z 


:= OPTI ! OPT2 


1ogtem ・1ogical term 
hl .orobj 

dyagen Code generate 
nc、logexp1 


2-3 全 プ ログ ラス ・ ツ スル 


a,(iy-2) 

(iy+1 ) 

(iy-2) .a ・ m(iy-2) := m(iy-2) ! m(iVt1) 
1ogexp1 


:= OPT1 XOr OPT2 


1ogtem 

hl .xorobj 

dyagen ・code generate 

nC.1oO9exXp1 

3、( 1iy-2) 

(iy+1 ) 

(iy-2 ) .a ・ m(1y-2) := (1y-2) XOF mm(iY+I) 
1ogexp1 


・ -- Or Object -- 
orobj: defw OrTee.OTeV,OTeC 
defw OTVe.OTVV.OrVC 


defw OTCe.OrCV 


de 
d 


4 
hl ,opr2w 
(hl ) 


2 
opr2b 


4 
hl,opriw 
(hl ) 


に 
a.(oprlw) 
hl.opr2w 
(h1) 


-5 
a,(Oprlw) 
OpPr2b 


2 
oprlb 


-5 
a, (Opr2w) 
oprlb 


1 -- eXCluSiVe Or Object -- 


H 
xorobj: defw XOTee,XOTeV,XOTeC 


defw XOTVe,XOTVV、XOTVC 
defw XOTCe,XOYTCV 
defb 2 


Pop de 
xor d 


defb 4 
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hl .opPr2w 
(hl ) 


2 
OoPr2b 


4 
hl.oprlw 
(hl ) 


= 学 
a,(OPrlw) 
hl.opr2w 
(hl) 


=5 
a,(oprlw) 
OoPr2b 


2 
oprlb 


-5 
a,(OPr2w) 
oprlb 


・ logical term 


1ogtem:: 
1BOF'* Cal1 gtoken :get next token 
1ogtem0: 
OF04' Cal1 1ogfac0 :1ogical factor 
1ogteml : 
0036" 1 a.( tokcod ) 
・"and′ 2 


$ := OPT] & opr2 

1ogtem2: 

1ogfac ・1ogical factor 

hl ,andobj 

dyagen ・code 9enerate 

nc、logteml 

8.(1y-2)~ 

(iy+1 ) 

(jiy-2) 、a ・ m(iy-2) := m(iy-2) & m(1y+1 ) 
は 1ogteml 


・ -- and object -- 


OEDA'OEDD' andobj: defw andee.andev、andec 
OEE2* 


andVe andVV、andVc 
andce.andCv 


2 
de 
d 


hl ,opr2w 
(hl ) 


2 
opr2b 


2-3 全 プ ログ ラム < クツ ス ム 


4 
hl,opriw 
(h1 ) 

=7 
a,(OPrlw) 
hl ,opr2w 
(hl) 


=5 
a,(oprlw) 
oPr2b 


2 
oprlb 


-5 
a,(OPr2w) 
oprlb 


・ logical factor 


1ogfac:: 
Cal1 gtoken get next token 
1ogfac0: 
1d a,(tokcod ) 
CP 0a9h Smot' 7 
Jr Z,1ogfacl 
cp て へ て 
Jr Z,1ogfacl 


nzZ,TelexXP iTelational expreSSion 
H := OPT 
1ogfacl: 
gtoken get next token 
relexXP iTelational exPreSSion 
(1y-3) 
a 
Z,1ogfac3 
a ivariable ? 
Z,1ogfac2 
3,(iy-2) 


(iy-2) ,a + mm(i1y-2) := ^ (1y-2) 


1ogfac2: 
1 


hl ,notobj 
codgen :Code 9enerate 
1ogfac3: 
a,2fh 35。 間 
。 ptcod1 


・ -- not object -- 


notobj: defb -4 
1d a, (oprlw) 
cpl 


relational expreSSion 


TeleXP:: 
cal1 ariexp0 iarithmetiC eXpreSSion 
1d a,(tokcod ) 
Cp 情 
Jr Z.relexp50 
CP 0f3h 
Jr Z.relexp40 
CP 。 
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Jr 
CP 
Jr 
CP 
Jr 
CP 
ret 


TelexXP1 : 
Cal1 
Cal1 
cal1 
Jr 

relexp10: 
cal1 
cal1 
Jr 


Telexp20: 
cal1 
Cal1 
defb 

relobJ3: 
defb 

relexp21: 


Opr 1 


OPr 1 


Opr1 


H Opr1 


relexp30: 


relexPp31: 
sbc 
ld 
Jr 


relexp40: 


FelobjJ1 : 


Telexp50: 


relobjJ0: 


OPT1 := 


Opr 1 


Z,Telexp30 
0f4h 
Z.Telexp20 
・・ 

Z,relexp10 
0f2h 

nz 


:= OPT1 く = opr2 
ariexp 

OPTeXC 

Subtra 

relexp21 


:= OPT1 


ariexP 
Subtra 
relexp31 


:= OPT1 


ariexXp 
Subtra 
06h 


2 


aa 
hl relobJ3 
relexp60 


:= OPT1 > opr2 


arieXP 
OPTeXC 
subtra 
06h 


a.3 
hl 、relobJ2 
relexp60 


OPT1 く >〉 opr2 


ariexp 
Subtra 
06h 


4 

Z,$+4 
a.0ffh 

hl ,relobj1l 
relexp60 


:= OPT1 


arieXP 
subtra 
06h 


5 
Z、$+4 
a.0ffh 


iarithmetic expression 
iexChange 


ijSkip 1 byte 


exChange 


:Skip 1 byte 


・Skip 1 byte 


iif OPT1 〈> OPT2 
・ then a 


:Skip 1 byte 


・if opr1l 
・ then 
else 


:= Offh else a: 


0 


8 紀 588 ご 


9888 選 8 


1d hl 、relobJ0 
relexp60: 
1 


a 
(iy-3) 


Z,Codgen 
(iy-2),b 


arithmetic expreSSion 


arieXP: : 

Cal1 gtoken 
ariexP0: 

Ccal1 term0 
ariexPl: 

1d a,(tokcod) 

CP 人 

Z,ariexp5 


Z,ariexP4 
0aah 
Z,ariexP3 
0abh 

JIZ 


2-3 全 プ ログ "ラス ・ ク スム 


iCode 9enerate 


i9et next token 


・teT 血 


*"PluUS' 7 


"InUS' 7 


OPT := OPT inmuS OPr2 


term 

hl ,minobj 
dyagen 
nC,ariexpl 
hl,WInmcC 
codgen0 
ariexpl 


* 


ariexp3: 
term 
hl ,pluobj 
dyagen 
nc,ariexpl 
hl ,plucc 
codgen0 
ariexpl 
H OPT1 := OPr1 - OPr2 
ariexXP4: 
teT 血 
subtra 
ariexpl 


hl ,Subobj 
dyagen 
nc 
3,(1y-2) 
(iyt1 ) 
(iy-2) .a 


・ := OPT1 + OPT2 
ariexp5: 

ter 和 

hl .addobj 
dyagen 
nC,ariexp1l 
a,(1iy-2) 
a,(iy+1 ) 


Code 9enerate 


iCode 9enerate 


OPT1 := OPr1 PlUS OPr2 


Code 9enerate 


iCode 9enerate 


iCode 9enerate 


1 箇 (1V-2) := (1y-2) - (1y+1) 


iCode generate 


1d (iy-2) 、a ・ m(1y-2) := (1y-2) + 血 (1y+1 ) 
Jr ariexp1l 


・ 。-- minUS ObjeCt -- 


1034′1038" minobj: defw minee、 枯 IneV.mmineC 
103D" 

1040′ 1046' defw inVe,inVV、mminVC 
104E' 

1054′ 1059" defw minCe.minCv 


defb 
1d 
POP 
sbc 


minev: defb 
hl .opr2w 
a.(hl ) 
mineC: 2 
a,OPr2b 


minVe: 


a,(oprlw) 
hl,opr2w 
a,(hl ) 


…5 
a,(opPrlw) 


hl,opr2w 
a,(h1 ) 


-4 


a.oprlb 
a,OPr2b 


PluS object -- 


: defw Pluee,PlueVv,Pluec 


PlUVe、PlUVV,PIuVC 
PluCe,PlucV 


誠 
de 
a,d 


4 
hl ,opr2w 
a.(hl ) 


2 


2-3 全 プ ログ "ラム ・ ク スム 


aoOpr2b 
4 


hl,oprlw 


1084′ 8E adc a.(hl ) 
1085′ F9 pluvv: defb -7 

1086' 3A B9B9 1d a, (oprlw) 
1089' 21 BBBB 1d hl、opr2w 


a,(h1 ) 


-5 
108E' 3A B9B9 1d a.(oprlw) 
a,OPr2b 


2 
a,OPT2b 


~5 


1097′ 3A BBBB 1d a,(oOpr2w) 
109A′ CEB8 adc a.oprlb 
109C′ FC plucc: defb -4 

109D' 3EB8 1d aoPrlb 
109F' CEBA adc a.OPr2b 


・ -- Subtract Object -- 
10AIl' 10B1′ IO0B5′ subobj: defw Subee 、Subev. Subec 
10A5 10BA' 
10A7* 10BD′ 10C3* defw SubVe . SubVV . SubVC 
10AB 10CB* 
10AD" 10D1′ 10D6" defew SubCe .SubCV 
10B1' 03 Subee: defb 3 
10B2′ 57 1d d.a 
10B3′ FI POP af 
10B4′ 92 Sub d 
10B5′ 04 Subev: defb 4 
10B6′ 21 BBBB 1d hl ,opr2w 
10B9′ 96 sub (hl) 
10BA′ 02 subec: defb 2 
10BB′ D6 BA Sub opr2b 
10BD'′ 05 subve: defb 5 
10BE 57 1d d.a 
10BF' 3A B9B9 1d a.(oprlw) 
10C2 92 Sub d 
10C3* F9 Subvv: defb =7 
10C4* 3A B9B9 1d a,(OPrlw) 
10C7′ 21 BBBB 1d hl 、opr2w 
10CA'′ 96 sub (hl ) 
10CB' FB subvc: defb ・5 
10CC' 3A B9B9 1d a,(oprlw) 

* opr2b 


4 
10D2′ 57 1d d,a 

3,OPr1b 
d 


-6 
10D7′ 3E B8 1d a,Oprlb 
10D9′ 21 BBBB 1d hl ,opr2w 
と (hl) 
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MS add object -- 

addobj: defw addee, addev, addec 
defw addve , addvV addVc 
defw addce,addcv 


defb 2 


POP de 
add a.d 


defb 4 
1d hl,opr2w 
add 3a,(h1 ) 


1 
a,OPT2b 


4 
hl.opriw 
a, (hl ) 


<7 
a,(opriw) 
hl,opr2w 
a.(h1 ) 


=5 
a,(OPrlw) 
a,OPr2b 


2 
aoprlb 


-5 
a, (Opr2w ) 
a,OPrib 


gtoken ・9et next token 
factor0 factor 


(tokcod ) 
PAN 
Z,term6 
・・ 


Z,term5 
の 


Z、term4 
Ofih 
Z、term3 
0f5h 


:= OPTI >> oOPr2 


factor 

hl ,Shrobj 

dyagen ・Code generate 

nc,terml 

a.(iy-2) 

d,(iy+1) 

eshr.r 

(iy-2).a ・ (1y-2) := (1y-2) >> m(jy+1) 


2-3 全 プ ログ "ラム ・ ツ スム 


ter 箇 1 
OPT1 :=oPF1 << opr2 


factor 

hl ,shlobj 

dyagen iCode 9enerate 

nc,terml 

a,(iy-2) 

d,(iy+1 ) 

@shl.r 

(iy-2),a (1y-2) := m(1y-2) << 硬 (1y+1) 
terml 


OPT1 := opPT1 % opr2 


factor 

hl ,remobj 

dyagen iCode generate 

nc,terml 

a,( 1iy-2) 

d,(iy+1) 

@rem.T 

(iy-2),a 1 存 (1y-2) := m(iy-2) % m(1y+1 ) 
terml 


OPT1 := Opr1 / opr2 


factor 

hl ,divobj 

dyagen icode 9enerate 

nc, term1 

a,(1iy-2) 

d,(iyt1) 

ediv.r 

(iy-2),a ? (1y-2) := m(iy-2) / m(i1y+1) 
terml 


CD 
21 
CD 
30 
FD 
FD 
CD 
FD 
18 


OPT1 := OPT1 * OPT2 


factor 

hl .WwulobJ 

dyagen Code 9enerate 

nc,terml 

8,(iy-2) 

d,(iy+1 ) 

WUl.T 

(iy-2),a 1 回 (1y-2) := m(iy-2) X (1y+] ) 
terml 


83883888S8 


・ -- Shift right ojbect -- 


11BF' 11C5* shrobj: defw Shree,ShreV,ShreC 
11CC* 

11D2′ IIDA' defw ShrVe,ShrVV,ShrVc 
11E4' 

11ED' 1IF4" defw Shrce,Shrcv 


5 

d。a 

af 

@Shr .r-@Start 


6 
hl ,opr2w 
@Shr . 大 -@Start 


5 
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S ーー Shift 


shlobj: defw 


defw 
123B' 1242* defw 


05 
57 
F1 
CD 0000* 


BBBB 
CD 0000* 


d,opr2b 
@shr .r-@start 


7 

d,a 

a.(oOPrlw) 
@shr .T-@start 


=9 

a,(OPTlw) 
hl,opr2w 
@shY.m-@start 


-8 

a,(oprlw) 
d.opr2b 
@shr.r-@start 


6 

d.a 

a.OPTlb 

@shr .T-@start 


-8 

a,oprlb 
hl,opr2w 

@shr .m-@start 


left ojbect -- 
shlee,Shlev, shlec 
shlve.SshlvV,shlvc 
shlce,shlcv 


5 

d.a 

af 

@shl .-@Start 


6 
hl,opr2w 
@shl .m-@start 


5 
d,opr2b 
eshl .r-@start 


Pd 

d,a 

a,(oprlw) 
@shl .T-@Start 


=9 

a,(Oprlw) 

hl .opr2w 

@sh] .m-@start 


-8 

a、(OPTlw) 
d,opr2b 

@Sh] .T-@Start 


6 
d、a 
aoprlb 


2-3 会 プロ グラ ム ・ ツ スム 


CD 0000* @Sh1 .r-e@Start 


F8 H -8 

3E B8 【 a,OPrlb 

21 BBBB hl,opr2w 

CD 0000x @Shl .m-@Start 


) -- Temmainder OoJbect -- 


125B' 1261' Temobj: defw Te ,TCmWGV 
1268' 
126E' 1276* defw TemVe,TGmVV 
1280" 
1289′ 1290" defw TemCe、TMCV 


5 

d.a 

af 
@rem.r-@Start 


6 
hl .opr2w 
@rem.m-@Start 


5 
d.opr2b 
QPem.T-QStart 


7 

d.a 

a.(opriw) 
@rem.r-@Start 


=9 

a,(oprlw) 

hl ,opr2w 
@rem.m-@Start 


-8 

a.(oprlw) 
d.opr2b 
@rem.T-@Start 


6 
d,a 
a,OPrlb 
erem.T-@Start 


-8 

a,Oprlb 

hl .oPr2w 
@rem.m-@Start 


: -- divide ojbect -- 
12A9′ 12AF' divobj: defw divee、diVev、diVec 
12B6" 
12BC' 12C4* defw diVVe,diVVV、diVVc 
12CE* 
12D7′12DE' defw divce.divcv 


05 defb 

57 1d 

FI POP 

CD 0000x Cal1 ediv.r-@Start 
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320 


ュ ーーー mMU1tiply 


mulobj: defw 


6 
hl ,opr2w 
@diV.m-@Start 


5 
d,oPr2b 
@div.r-@5tart 


7 

d,a 

a,(oprlw) 
ediv.r-@start 


ー9 

a,(oprlw) 
hl,opr2w 
@diV.m-@Start 


-8 

a.(oprlw) 
d,opr2b 
@div.r-@Start 


6 

d,a 

a,OPr1b 
@diV.r-@Sstart 


-8 

a.OPrlb 
hl,opr2w 
@diV.m-@Start 


oOJbect  -- 
mulee,mU1eV.mulec 
mulVe、mU1VV。mUlVC 
mulce.mUlCV 


4 
de 
@mul .T-QStart 


6 
hl ,opr2w 
@mul .m-@Start 


5 

d,opr2b 

@mul .T-@Start 
6 

hl,oprliw 

@mUl .mm-@Start 


=9 

a,(oprlw) 

hl ,opr2w 

@mul .mm-QStart 


-8 

a, (oprlw) 
d,opr2b 

@mul .r-@start 


5 


2-3 会 プロ グラ ム ・ グ スム 


16 B8 d,oprib 
CD 0000x @mul .T-@Start 


F8 -8 

3A BBBB a、(OPr2w) 

16 B8 d,oprlb 

CD 0000x @mul .T-@Start 


ij factor 


factor:: 
cal1 gtoken :9et next token 
factor0: 
a, (tokcod) 
いす ・ 
Z,factor5 


nz,exPT 
factor5 

3, (1iy-3) 

a exPTeSSion ? 
Z,factor2 

き ivariable ? 
Z,factor1 

a,(iy-2) 


(iy-2)。a ) 基 (1y-2) := -m(1y-2) 


factor1 : 


: neg Object 


factor2: 
1 


de、0ed44h 
ptcod2 


factor5: 

gtoken get next token 
H exXPreSSion ) 
eXPT:: 

・(・ 
nz,fun? 
gtoken :get next token 
XPTX: 

1ogexp :exPreSSiOn 
eXPTX1: 


nzZ,eXPFY 

exPr5 

decopt ・iy := iy - 3 : dec(optble) 
gtoken 

eXPr 1 *eXxPTeSSion 

a, (tokcod ) 

eXPTX1 


s88888 語 8 8 同 


0036" a、(tokcod ) 
29 人 

203D* 1] nzZ.exXPerr 
1BOF'* gtoken 


?( exP_l: exP_2、 exP_3 ) 
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nz .memor 
gtoken :get next token 
・(・ 


nz .exPerT 
gtoken 

exPr2 eXPTeSSion_l 
a.(tokcod ) 


nZ,eXPeYT 


LSWP  20O “ 


exPTeSSiOn_2 
) jy := iy - 3 : dec(optble) 
a,(toOkcod ) 


nZ .eXPeTT 


(Sp) ,hl 

ptcha ij chain Ll+t1l 『" 
gtoken 

eXPr1 *exPTeSSion_3 


decopt : iy := iy - 3 : dec(optble) 
hl 


ptcha 3 iGhai  L2e1 " 
chkpar 


memory[ exPp_l、 exP_2 ] := exp_3 


"mmOTy' 7 


nZ,POrt 


gtoken 

・[・ 

nz,exPerT 

gtoken 

Obfh 967 婦 
Z,memOT2 

OcOh 8V' 2 
Z,memOr3 

eXPr2 ieXxPreSSion_1 


decopt ) iy := iy - 3 : dec(optble) 
a, (tokcod ) 


"PUSH AF “ 


ieXPTeSSion_2 
a,(tokcod ) 
コ ・ 


nzZ,eXPerT 
de,0el6fh 
ptcod2 


2-3 全 プ ログ ラム ・ ツ スム 


gtoken 

0fOh 

nZ,mCmOr1 

decopt jjy := iy - 3 : dec(optble) 
a,0e5h j PUSH HL “" 

ptcod1 

9token 

eXpr1 ieXPTeSSion_3 

de,0e177h > 

ptcod2 53" LBD LA “ 


memOry[ exP_1, exXP_2 ] 


a,7eh 37 LED Ai(HL) " 
ptcod1 。 


memOry[ index +-, COnSt ] := eXP_1 


iindex regiSter ix 


iindex register iy 


gtoken 
EE auto increment ? 
Z,mCmmOT5 

2 iauto decremmnt ? 
Z、mmOT4 

1.0 


Z、memOr6 
h,.0 
コ ・ 
Z・memOr10 
eXPerr 


:decrement 
・ 2 byte skip 


*inCremnet 


Z,memor10 


nZ,eXPeTT 


ireset zflag & 1 byte Skip 


Set Z flag 


・ 1 byte skip 
iSet z flag 


ゝ byte constant 
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iCheck 1 = -128...+127 ? 


a 
nz,i1cnds 


6 
d.1 
de,h1 
0036" a, (tokcod ) 
コ ・ 


nz,eXPerr 
hl 

gtoken 
0fOh 
nzZ. 問 emOr11 


ieXPTeSSion_1 


 LD (IXtd),A "or " LD (IYtd)JA " 


ij" INC index " or " DEC index " 


memory[ index +- 。 ConSt ] 


ij PUSH AF " 


iLD A,(IX+d) " or "。 LD A、(IY+d) " 


叶 INC index " or " DEC index " 


stoptb 
Port[ exp_1 ] : 


0bah 
Z、$+6 
Of6h 
nz,itrfun 


gtoken 
・[・ 


に に に に に に お に く に ゴ ここ 


8 こ ニニ 


TnZ,eXPeTT 


nZ,eXPerr 
gtoken 
0fOh 
nz,POrt1 
decopt 
a,0f5h 
ptcod1 
gtoken 
eXPr1 
de,0d14ah 
Cod2 


* 


port[ exp_l ] 


POrt1: 


a,4fh 
hl ,78edh 
ま ptcod3 


H intrinsic fumction 
itrfun:: 


itrfunl: 


nz ,eXPeTT 
gtoken 

a 
nZ,eXPerr 
hl,idetyp 
SeaSy 和 

a 

nZ 、1SVar 
a,(idetyp) 
Ofh 


2 
nZ,eXPerT 
hl ,(adrs) 


hl ,1dam 
codgen 
gtoken 
chkpar 


ご 1 
a,(h1 ) 


intrinsic function 


1trfun2: 


2-3 会 プロ グ " ラ ム ・ ク スム 


iexPTeSSion_1 


HMIE/ 
: 1y := iy - 3 : dec(optble) 
"PUSH AF " 


ieXPreSSion_2 
7 POP DE " 
99 it 6.D* 
7 OUT (CO.Ar 


ij LD CC.A “ 
"IN 。A.(C)『" 


Var ), dec( var 
inc 7? 


s"dec' ? 


:get next token 


*SearCh Symbol table 


ivariable name ? 
7 LD HLimn “ 


INC (HL) " or " DEC (HL) " 
j LD AA,(HL) “" 


rl( expP ),rlC( exP )。rr( exXP ) 
rrC( exP ), Sra( exXP )、decj( exXP ) 
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158A* 
158C* 
158F* 
1591" 
1593* 
1595" 
1596 
1599^ 
159B" 
159E' 
15A1" 
15A4* 
15A7* 
15A8" 
15A9* 
15AB" 
15AE" 
15AF'* 
15B0' 
15B2" 
15B5" 
15B6" 
15B8* 


15BB* 
15BC* 
15BD' 
15BE 
15BF* 
15C0* 


15C1* 
1 に 9 
15C3* 
15C5" 
15C7* 
15C8* 
15CB'* 
15CD* 
15D0" 
15D3* 
15D5" 
15D7* 
15DA* 
15DD' 
15DF* 
15DF* 
15E2" 
15E5" 
15E6* 
15E9* 
15E9* 
15EA' 
15EC* 
15EE* 
15F0' 
15F0' 
15F1 * 
15F4* 
15F7* 
15F8" 
15F9* 
15FB" 


CP 0aeh 

JP C.Vardat 

CP 0b3h+ 1 

Jr nc,itrfun3 

Sub 0aeh 

push af 

Cal1 gtoken 

CP 二 い 

JP nzZ、exPerT 

Ca11 gtoken 

cal1 eXPFX 

Ca1l1 eXPr5 

PoP af 

1d 6e.a 

1d d,0 

1d hl,iteob} 

add hl ,de 

1d a、(h1 ) 

CP 0cbh 

Jp nz,ptcod1 

1d d、a 

1d e,2fh 

JP ptcod2 
iteobj: rla 

rlca 

9 

TrCa 

defb Ocbh 
_ daa 
H intrinsic function 
itrfun3: 

CP 0b8ht+1 

Jr nc,Vardat 

Sub 0b4h 

push af 

Cal1 gtoken 

CP AN 

JP nz exPerT 

cal1 gtoken 

CP 9 

Jr Zitrfun4 

Cal1 eXPTX 

cal1 exPr5 

Jr itrfun8 
itrTfun4: 

Cal1 gtoken 

Cal1 pacod 

xor a 

Cal1 stoptb 
itrfun8: 

POP af 

Jr nz,itrfun5 

1d a,9fh 

Jr itrfun6 
itrTfun5: 

Push af 

1d de.3e00h 

cal1 ptcod2 

POP af 

dec a 

Jr nz.itrfun7 

1d de、2001h 


itrfun6: 


ptcod2 
a,2fh 


eXxPrTeSSion 


5 SRA A “ 


Carry( exP ), ZeroO( exP ) 
Sign( exp )、parity( exp )、 overflow( expP ) 


carry' Zero'、'Sign'、Parity'、'overflow′? 


ieXPTeSSiOn 

旨 PUSH AF " 
7 SBC AA " 
4 洲 s0 
" JR NZ.$+3 


2-3 会 プロ グラム ・ ク スム 


J 
itrfun7: 
d 


"Li JP P.O " 
"Li: JP PO.0* 
計 HL 


:"。 Chain Ll+1 “" 
Variable & data name 


hl , (conval ) 

9 

Z,COnSt5 

a iidentifier ? 
nz .ConSt 

hl.idetyp 

SeaSYm ・Search symbol table 
E! ifound ? 

nZ .uVarCk *SKip if not 

hl (adrs) 

a,( idetyP) 

Ofh 

1 ・constant name ? 
Z、cConSt5 :SKip if so 

8 label ? 
Z、eXPerr ierror if so 

9 function name ? 
Z、funca1 *Skip if so 
vardat0 


hl .(cptr) 

SPSkip *SPaCe Skip 
・(・ 

Z,ufuncl 

miSVar 

3,2 

hl .0 


Var[ exp_l ] := exP_2 
get next token 


eXPTeSSion_1 


nZ,eXPeTT 
a,(iy-3) 
2 iConstant ? 
Z,Vvardat4 
a exPTeSSion ? 
Z.Vardat1 

hl ,1dexa 

Codgen Code generate 


BPS SS8 避 dQ 司 88 避 8 


Vardat1 : 
hl 
stoptb Store operand table 
hl .indobj 


ら 
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codgen *code generate 

decopt ) iy := iy - 3 : dec(optble) 
gtoken 

0fOh RM 

nz,Vardat2 

af 

3 idata ? 

Z, eXPeTT 

decopt iiy := iy - 3 : dec(optble) 
a、0e5h 人 HDSH. 聞 、" 

ptcod1 

gtoken 

つり gl *exPTeSSiOn_2 

de.0e177h POP 本 。 

ptcod2 9 ED (HL)。A " 


Var[ exp ] 


Vardat2: 


POP af 

1d a,7eh H AtHL) “" 
3 Jp ptcod1 
Var[ const ] := exP 
Vardat4: 


i hl :=hl+ opr 


iiy := iy - 3 : dec(optble) 
gtoken 


*= eXP 


0fOh 
nz,Vardat6 
hl 


iexPTeSSion 


 LD (mn),A " 


Vardat6: 


stoptb 
indobj: defb 7 

1d 6、a 
1d d.0 


1d hl、oprlw 
add hl .de 


constant 


bytcon ibyte constant 
conSt6 


axh 
xcheck h = 0...+127 ? 
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2-3 全 プ ログ "ラム ・ ツ スム 


hl 


a,2 
stoptb ijStore operand table 
H function cal1 
ufuncl:: 
0000 1 hl.0 
ufuncl1: 
0078" 1 (caladr ) ,hl 
000C bc,adrs-identi 
0017" hl,identi 
1AF3" blkpsh iblock push 
1736' funcl 
000C bc,adrs-identi 
hl,identi 
blkpop iblock pop 
hl ,(caladr ) 
(adrs) 、hl 
hl,idetyp 
(hl ).89h itype = undefined function 
Te9SYm ・Symbol table register 


a,(idetyP) 

:undefined function ? 
C,ufuncl1 
(caladr ) ,hl 


func( exp_1、... 、exP_n: conSt_1, const_2 ) 
gtoken 
nz ,exPerr 


pacod 
a、( loopb) 


Z,funca14 
う ・ 


Z.funcal7 
de.3601h 
de 
funca12 
funcal1: 
de 
gtoken 
funca12: 
eXPr1 iexpreSSion_n 
decopt iiy := iy - 3 : edc(optble) 
a,0f5h ij" PUSH AF " 
ptcod1 
de 
a, (tokcod ) 
Z,funca13 
の ・ 
Z,funca13 


TnZ,eXPeTT 
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FE 29 


funca15: 


Jr 
funcal5.2: 
Cal1 
1d 
Cal1 
funcal5.5: 


ca11 


funca17: 
1d 


( 
a.e 

32+1 
C、fumcal 1 
Z,tmar9 
e,32+1 
funcal1 


af 

de 

a、21h 

hl (datorg) 9 還 
ptcod3 

de 

ptcod2 *" LD 
af 

・ 

Z.funca18 

funca15 


HL、DSEG “" 


(HL).n 『" 


a,0afh ji XOR A 『" 
ptcod1 
a,32h 
hl 、(datorg) ED 
ptcod3 


(DSEG).A 『“" 


Z,funca16 

Obfh : ix ? 

nz 、funca15.2 

de,0dde5h 本 場 肛 10 
ptcod2 

a,0elh 4 PE 妃 " 
ptcod1 
gtoken 
funca15.5 
COneXP iconstant expression 
a,21h 

ptcod3 9 ED 民 mW ツ 


a,( toOkcod ) 
い ・ 

Z,funca18 
nz,exXperr 


9token 

OcOh ・iy ? 
nz,funca16.2 

de,0fde5h PMSE TI 
ptcod2 

a,0dlh 0 商 恨 且 。 ツ 
ptcod1 
gtoken 
funca16.5 
COneXP ・Constant expreSSion 
a,11h 

ptcod3 $* 1 の sm デ 


a, (tokcod ) 
・ 


nZ,eXPeTT 
funca18 


a,0afh "XROR A “" 


2-3 全 プ ログ ラム ・ ツ スム 


ptcod1 


180D' 3E 32 1d a,32h 

180F′ 2A 0008" 1d hl .(datorg) iLD (DSEG).A 
1812'" CD 196E' ca11 ptcod3 

1815* funca18: 

1815′ DI1 pop de 

1816′ 2A 000C" 1d hl 、(cloc) 

1819′ 23 inc hl 


0078" (caladr ) .h1 ・ funadr := cloc+ 1 


1820′ CD 196E" cal1 ptcod3 "CALL nn “ 


1824'.。 3E CI 1d a.0clh "POP BC 
1826' C4 1953" ca11 nz,ptcod1 
1829′ SE 00 1d a.0 
182B′ CD 183D' Cal1 stoptb iStore operand table 
182E' C3 1BOF"* Jp gtoken 
*X PFeSet operand table pointer 8 work Clear xx 
1831" PrOPt:: 
1831" FD 21 003C" 1d iy.oprtb1 
1835* AF XOT 3 
1836 32 003B" 1d (optble) 、a 
1839' 32 003A" 1d (puhptf ) .a 
183C′ C9 ret 
XX StOTe OPerand table xx 

183D* stoptb:: ・ a : Operand type ( 0=exp、 1l=var、2=cOn5 ) 

1 hl: address or constant 
183D′ FD 77 00 1d (iy+0) .a 
1840' PFD 75 01 1d (iy+1) 1 
1843′ FD 74 02 1d (iy+2) 、h StOre 
1846′ 11 0003 1d de,3 
1849′ FD 19 add iy,de 
184B' 21 003B" 1d hl ,optble 
184E' 34 inc (hl ) 
184F′ 7E 1d a,(h1 ) ゝ Check 
1850′ FE 14 CP (oprtbe-oprtb1 ) /3 


TnC,eXPeTYT 


5 *wM  deCrement operand table pointer 
1856' decopt:: 
1856′ PD 2B dec jy 
1858′ PD 2B dec 1y 


FD 2B 


003B" hl,optble 
1860' 35 dec (hl ) 
hl 


xX CXChan9e OPerand 1. operand 2 ww 


1iy 


OPTeXC1 : 


a,(de) 
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C,(h1 ) 
de,hl 

(hl1)、c 
(de),a 
OPreXC1 


0b8h ioperand | byte data mark 
0b9b9h :operand 1 word data mark 
Obah iOperand 2 byte data mark 
Obbbbh ioperand 2 word data mark 


dyadic operation, code 9enerate XX 


dyagen:: ゝ hl: address table addreSS 
H iy: operand table pointer 


に 


:= mm(iy-6)x3 + m(iy-3) 
ia=892 
ijSKkip if so 


opNopp の oO 


: hl = object code store addreSS 


code generate ※※% 


hl1: object code store addreSs 
5 iy: operand table pointer 
0003 de,3 
19 iy,de ijy = ijy+3 
de,hl 
003B" hl,optble 
) (hl) i inc(optble) 
de,hl 


ji"PUSH AF" output ? 


,Codgen15 
bc 


hl 
putobj iPut object 
hl 
bc 
codgenl : 
hl 


iOperand 1,。 byte out ? 


Ooperand 1. word out ? 
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iOperand 2. byte out ? 


Operand 2、word out ? 


a,(iy-1) 


putobj 

hl , (cloc) 

hl 

hl 

(cloc),hl ・cloc:= cloc+ 2 
hl 

hl 

bc 

b 

codgen8 


iadd bias to cal1 address 


iPut call hi-addreSSs 


iPut call low-addreSSs 


iy - 3 : dec(optble) 
0 
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44 


003A" 


003A" 


0000* 


0000* 
000C" 


000C" 


codgen10: 
cal1 
Scf 
ret 


codgen15: 


Puhptf ) 


PUSH AF 


a,(puhptf ) 
a 


a,0f5h 
nz,ptcod1 
a,0ffh 
(puhptf ) .a 


object code 


1 byte out 


hl (cloc) 


h 


1 


(cloc),hl 


h 
1 


2 byte out 
e 
d 


word Out 


3 byte out 


iy - 3 : dec(optble) 
1 


iPut code length 


PUSH AF 


PUSH AF 


( 1...3 byte- ) 


(reg a ) 


icode length 1 byte 


iPut reg a 


(regd,e) 


(reg 1.h) 


icode length 2 byte 


(reg a. 1・ 


・code length 3 byte 


・Put re9g a 
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putobj *put reg h 
hl ,(cloc) 


(cloc) ,hl 


X% moOVe identifier to name adTa ※% 


0017" hl.identi 
0026" de、Strbuf 
0C b.adrs-identi 
mOVnaml : 

a,(h1 ) 

(de).a 

a 

Z 

hl 

de 

movnaml 

ab 

(de) 、a 


1 ae  ※% 


ptname:i i a : name type ( 56h...5ah ) 
putobj 
hl ,strbuf 

ptname1 : 


putobj 
hl 

hl 
ptnamel 


1ocation Count we 
hl 


a.80h 
ptchal 


Chain addreSS xx 


ptcha: : 


hl 
a,81h 
ptchal : 
putobj iChain 


putobj :pPut reg 1 
af 
6 putobj put reg h 


X% COnStant eXPTeSSiOn ※% 


COneXP:: 
1A01" Ccal1 wodcon iword conStant 
COneXP1: 
3A 0036" 1d a, (tokcod) 
FE 2B CP 0 


335 


1BOF* 
1A01" 


52 
E8 


1BOF* 
1A01* 


DD 


0038" 


00 
1A01' 


0038" 


1FAB* 


0038" 


0036" 
BB 
07 
BC 
OF 
1A2F* 


00 
1BOF'* 
1A2F* 


09 


00 
1BOF* 
1A2F* 


0038" 
00 


0036" 


05 
0012" 
43 


COneXP2: 


bytcon: : 


wodcon: : 


bytcon1 : 


bytcon2: 


bytcon3: 


wodcon0: 


Z,COneXP2 


ret nZ 
Push hl 

cal1 gtoken 
Ca11 wodcon 
eX de,h1 
Pop hl 

Or a 

Sbc hl,de 
Jr Conexpl 
PuSh hl 

cal1 gtoken 
ca11 wodcon 
POP de 

add hl.de 
Jr Conexp1 


xx byte ConStant xx 


1d hl .datinl 
1d a,(h1 ) 
push af 

1d (hl).0 
cal1 wodcon 
POP af 

1d (datinl).a 
1d aih 

Or a 

JP nz,ilcnor 
ret 


XX WOFd ConStant xx 


1d hl ,datinl 
1d b.(h1 ) 

1d a、( toOkcod ) 
CP Obbh 

Jr Z,bytcon1l 
CP Obch 

Jr Z.bytcon2 
Jp wodcon0 
Push bc 

1d (hl ) .0 
ca11 gtoken 
cal1 wodcon0 

1d 1.h 

Jr bytcon3 
push bc 

1d (hl).0 
cal1 gtoken 
Cal1 wodcon0 
POP af 

1d (datin1l ) .a 
1d h,0 

ret 

1d a,(tokcod) 
Or a 

Jr nz .wodcon1 
1d hl (conva1 ) 


JY wodcon5 


word ConStant 


Subtract 


word constant 


・ add 


ieTTOT ・ 


shi' 3? 


に "low 7 


111egal constant 


0038" 


1FF2* 
5B 0023" 


wodCOn4: 


wodCon5: 


nz、wodcon2 
hl,idetyp 
SeaSy 

上 ! 
nZ,miSCon 
a,(idetypP) 
Ofh 

a 
nz,badcon 
wodcon4 


| 
nz.badcon 
gtoken 

a 
nz、COnerY 
hl .idetyp 
SeaSym 

a 
nz.wodcon8 
a.(idetyP) 
0fh 

a 


Z.COIerTT 
9 
Z.wOdcon4 
E! 
Z.wodcon4 
5 


nc.wodcon6 
hl .(adrS) 


hl 
9token 
hl 


a,(datin1) 
a 
Z、.Conerr 
de,(adrS) 
a,( idetyP) 
C,a 

Ofh 

9 
Cc,wodcon7 
funchk 
nc,COnerT 
7,C 

nz 、wodcon9 
wodcon4 


funchk 
C,COnerT 
7,C 
nz,wodcon9 
wodcon4 


a,(datin1 ) 
a 


Z,COnerr 
de.0 
funchk 
a.98h 
ncC,$+4 
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*Search symbol table 
・found ? 


iconStant name ? 


get next token 


Search Symbol table 
found ? 


*conStant name ? 
:eTTOrT if so 
Variable name ? 
:data name ? 


:lable or funtioc name ? 


data or inline ? 
error if not 


ifumction name ? 


function ? 
ierrOr if lable 


:]able ? 
・error if function 


idata or inline ? 
ierror if not 


ifunction ? 
iundefined lable 
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89 
0016" 


wodcon9: 
000C" 
0023" 


0016" 
0000* 


A7 


funchk: 
0000" 
1DBE' 


0000" 


funchk1 : 


blkpsh:: 


BO 
E9 


gtoken:: 
0036" 
FF 


0000" 

gtoken0: 
1DBE'" 
22 

gtokenl : 
0000* 


a,89h iundefined fumction 
(idetyp),a Set type 
hl , (cloc) 
(adrs ) ,hl 
de 
hl,idetyp 
re9Sym Symbol table register 
hl 
wodcon5 
hl , (cptr ) 
SPSKip SpaCe SKip 
Z,fumchk1 end of line ? 
・(・ 
nz.funchk1 
nxSPSK :SPaCe SKip 
Z,funchk1 end of line ? 
nz.funchk1 
hl 
(cptr ) ,hl 
・ Cy := 1 
a ・ cy := 0 


X% blOCK PuSh 


bc: PuSh Size 

hl: Source addreSS 
ix 

de.hl 

hl .0 

hl .SP 


a 
hl 、bc 
Sp.h1 
de.hl 

・Push 
(ix) 


XX DIOCK POP ※% 


bc:POP SiZe 
hl:destination address 
ix 
de.hl 
hl .0 
hl .sp 

・POP 
SP,hl 
(iN) 


next tOKen 
a.( tokcod ) 
Offh end ? 


Z :Teturn if so 


hl .(cptr) 


SPSKiP ・SPaCe SKip 
nz.gtoken3 


9etSOou ・9et Source PrOgram ( 1 line } 
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0A ) nc,9token2 
gtoken1l.5: 
0000* edincl rend Check 
FI ) Cc.gtoken0 
FF a.0ffh ・a=Offh : end of program 
1C4B* ) gtoken33 
9token2: 
53 0002" 1 (lino) 、de 
hl 
de.hl 
0005" a,(Stmflg) 


a 
0000x * i :line number display object out 


1DBE' ・SPace Skip 
DE ) Z,gtokenl 
9token3: 
2F の 
10 ) nz,gtoken3.5 
hl 


a, (hl ) 
hl 


某 

a,(h1 ) 
nz,9token3.5 
hl 


CoOment iCOmment Skip 
Cc,9token1.5 
gtoken0 
gtoken3.5: 
1 (eptr ) , hl 
de,h1l 


constant ( decimal , hexadecimal & character ) 


numtst imumeric ? 
C,9token4 Skip if not 
decbin iConvert decimal Sstring into binary Value 
gtoken7 
gtoken4: 


nz,9token6 
de 
a,(de) 
hexadecimal ? 
C,gtoken5 Skip if not 
hexbin iconvert hex string into bimary Value 
gtoken7 


gtoken5: 
1 


hl .(cloc) iload code location counter 
) gtoken7 

9gtoken6: 

nz,gtoken10 

de 

a, (de) 

a 

Z.Cccher1 

1.a :load character constant 

de 

a,(de) 


nZ,CCher2 

de 

gtoken7 
CCher1 : 

1 PO 

(strbuf ) .hl 
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0020 


1B94" 18 08 
1B96' 

1B96′ 22 0027" 
1B99 3E 27 


1B9F' 22 0012" 
1BA2′ C3 1C44" 


1BA5" 

1BA5' FE 5F 
1BA7 28 05 
1BA9′ CD IDE4 
1BAC' 38 51 
1BAE' 21 0017" 
1BB1′ 06 0C 
1BB3' 

1BB3′ 77 

1BB4′ 23 

1BB5" 

1BB5* 13 

1BB6" 1A 

1BB7′ CD IDCB' 
1BBA′ 30 09 
1BBC′ CD IDE4" 
1BBF' 30 04 
18C1′" 形 虹 
1BC3′ 20 06 
1BC5* 

1BC5′ 10 EC 
1BC7'′ 06 01 
1BC9′ 18 EA 
1BCB" 

1BCB'′ 36 00 


1BCD' ED 53 0000" 


1BD4" 

1BD4′ 21 0017" 
1BD7* 

1BD7′ 1A 

1BD8′ BZ 

1BD9′ FA 1BEA* 
1IBDC′ 28 1D 
1BDE′ 4F 

1BDF′ 7E 

1BE0′ CD 1DB5" 
1BE3′ B9 

1BE4′ 20 0C 
1BE6' 13 

1BE7′ 23 


1BEB' B7 
1BEC' 20 0A 
1BEE'′ 1A 


Ccher2: 


9token7: 


ゝ reServed word & identifier 


gtoken10: 


gtoken14: 
1d 
1d 


IT 
gtoken7 


(strbuf+1 ) 、h1 
a 
(strbuf ) 、a 


a 
(conval ) ,h1 
9token31.5 


Z、$+7 

lettst 
c,9token25 
hl.identi 
b.adrs-identi 


(hl).a 
hl 


de 

a.(de) 
numtst 
nc.gtokenl3 
lettst 
nc.gtoken13 


nz.9token14 
9token11 
gtoken12 


(hl ) .0 
(cptr ) .de 


・ Search reServed word 


] 1d 
9token15: 
1d 


gtoken16: 


de,TSword 
hl,identi 
a,.(de) 

a 


m,gtoken17 
Z,9token20 
C.a 

a,(hl ) 
traupc 

( ロ 
nz,gtoken18 
de 

hl 
9token16 


a,(h1 ) 
3 
nz.gtoken19 
a,(de) 
9token33 


de 
a,(de) 


a 
p,9token18 


ra= 0 : constant 
Store value 


2 


S1etter 7 
Skip if not 


:Store identifier area 


:numeric ? 
letter ? 


人 
iSKip if not 


・Store end of string mark 


itranSlate tO upper Ca5se 


: a = YeServed word NO. 
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gtoken19: 
de 
gtoken15 
gtoken20: 
1d a,1 H : identifier 
Jr gtoken33 


: Search special character ( delimiter.operator、... 


gtoken25: 
1 hl , specha 

bc,speche-specha 

ijSearch 

nz,9token35 

C、a 

de 

(cptr) .de 


nz,9token27 
a, (de) 
a.0fOh 
gtoken30 


・・ 
nz,gtoken28 
3a.(de) 

・ く ・ 


3 
nc,gtoken32 
a・0flh 
9token31 


nz.g9token29 
a.(de) 

Fa 
nc.gtoken32 
a,0f4h 
gtoken31 


・@・ 
nz,9token32 
a,(de) 
a0f6h 

gtoken30: 

Jr nz .9token32 
gtoken31 : 

inc de 
gtoken31.5: 

1d (cptr ) ,de 

Jr gtoken33 
9token32: 

1d a,C 
gtoken33: 

1d (tokcod ) .a 
ret 


9token35: 
1d 


1.a 

h,0 
(strbuf ) , hl 
illchr 


くく reServed word >> 
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TSwOrd:: 
1C58′ 41 4E 44 A8 defb *AND' 、 0a8h 
1C5C' 41 54 BE defb *AT'。 Obeh 
*BREAK' , 


"BY', 
"BYTE' , 


*CARRY', 
"CONS' 。 


*DATA' 


"DEC' 
"DECJ', 


"DEX'。 
"DEBUG', 


"ELSE' , 


1CB3′ 49 4E 43 AC defb "1NC' 0ach 
1CB7′ 49 4E 43 4C defb "1NCLUDE' 、 08Ih 
1CBB' 55 44 45 81 

1CBF' 49 4E 4C 49 defb "INLINE' 。 090h 
1CC3′ 4E 45 90 

1CC6′ 49 4E 58 A4 defb "INX' 、 0a4h 
1ICCA' 49 58 BF defb "1X'。 Obfh 
1CCD′ 49 59 CO defb っ 相生 OcOh 
1CDO' 4C 44 58 A2 defb "LDX' . 0a2h 
ICD4′ 4C 4F 4F 50 defb "LOOP', 09bh 
1CD8′ 9B 

1CD9′ 4C 4F 57 BC defb "LOW'、 Obch 
1ICDD′ 4D 45 4D 4F defb "MEMORY' 、 0b9h 
1CE1′ 52 59 B9 

1CE4′ 4D 49 4E 55 defb *MINUS' . 0abh 
1CE8′ 53 AB 

1CEA′ 4E 4F 54 A9 defb *NOT'。 0a9h 
1CEE' 4F 52 A7 defb *OR'。 0a7h 
1CF1′ 4F 56 45 52 defb *OVERFLOW' 、 0b8h 
1CF5'′ 346 4C 4F 57 

1ICF9′ B8 


"PARITY'. 
"PLUS' . 
"PROG' , 
*RECURSIVE' , 


"RETURN' 、 
*RL' 
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defb 
defb 
defb 
defb 
defb 


defb 
defb 


defb 
defb 


defb 
defb 


defb 
defb "UNTIL'、 


defb "VAR' , 
defb "WHILE', 


defb *WORD', 


defb 'XOR', 
defb *ZERO', 


defb 0 
<< special character >> 


SpPecha:: 
defb "8( )% キ ュー。/ は は 


defb * く =27@[] 1) で ! 


speche equ $ 


0 XX COmment SKiD 


H 
coment:: 


hl 
coment1: 

a,(h1 ) 

a 
Z。COment2 
が 
nZ、COment 
hl 
a,(h1 ) 
a 
Z,COment2 


Z、COment 1 
・ バ 

nz ,COment 
a 

hl 


9etSOu get SOUTCe PTO9Tam 
て ireturn if cy = 1 
(1ino),de 

coment1 


XX tranSlate tO UPPeT CaSe 
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trauPc:: ・ 


F3 Jr 


上 
hextst:: : 


ret 
41 CP 
ret 
47 CP 
CCf 
ret 
61 CP 
ret 
67 CP 
Cccf 
ret 


* 
5 ※※ 


lettst:: 
41 CP 
ret 
CP 
Ccf 
ret 
61 CP 
ret 
CP 
CCf 


5B 


30 sub 
04 


Cal1 


a : Character 


本 2 
nc 
20h 


SPaCe SKiP ※% 


hl : string addreSss 


a、(h1 ) 
に 1 


4 
09h 
Z,nXSPSK 


TIZ 


hl 
SPSKiP 


numeric teSt xx 


a : character 
符 
19" ゃ 1 


a : character 
numtst 

nc 

・A・ 

9 

*F"+1 


TIC 
・a* 


gd 
| 


letter teSt x% 
a : Character 
・AY 


9 
2 


convert decimal string into binary Value 


de : 


string address 


*end of line ? 
iTeturn if so ( eol 
tab code ? 

Skip if so 

*SPaCe ? 


iTeturn if not ( non SPaCce 


: Cy = 1 : non numeric 

: Cy = 0 : numerec 

・ Cy = 1 : non hexadecimal 
・ cy = 0 : hexadecimal 
・cy = 1 : non letter 

Cy = 0 : letter 


・a :=m(de) - "0" 
ゝ numeric ? 


:return if not ( hl 


: Z=1 


) 


・ Value ) 


Z=0 


) 
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C,1 
hl ,hl1 
C.dCOVerr 
hl ,hl 
Cc.dcoverr 
hl .bc 
C.dcCoverr 
hl .hl 
C,dCOVerT 
C、a 
b.0 
hl,bc 
C・dcOVerr 
de 
_ decbinl 
dcoverr: 
0014" 1 hl .(eptr) 
0026" de.Strbuf 
OF b,strbfe-Strbuf -1 


a,(h1 ) 


1 
1DCB* numtst 
49 ) Cc,hcver3 


03 


dcver2: 


5 dcver1l 


H X% COnVert hex String jnto binary ValUG ※※ 


hexbin:: : de : String 
1 hl1,0 


hexbinl: 
1 a,(de) 

hextst hexadecimal ? 

C ireturn if not ( hl : Value ) 

trauPc itranslate tO upPer CaSe 

*0" 

9+1 

C,hexbin2 


hexbin2: 


hcoverr: 
hl ,(eptr) 
de,Strbuf 
b,strbfe-Strbuf -2 


imOve '$' character 
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a, (hl ) 
hextst 
c、hcver3 
b 

b 
Z,hcver2 


hcver2: 


hcver3: 


illcon 
de 


・ miSSing Variable name 


1SVaT:: 
de.mVar 
ermiSsn 
(hl ).2 


defb *variable',0 


: miSSing ConStant name 
mlSCOn:: 
de,mCOn 
ermisn 
(hl ) .1 


*constant'、0 


eTmiSn: 
hl,0 
(adrs) .hl 
hl ,mSerm 
erTOT 
hl ,idetyp 


"MiSSing \ name : @" 


identi 
defb 0 


: bad option Switch 


OPSeTT:: 
21 1EC4* 1d hl ,OPSGT 血 
C3 2053* JP abt 


2-3 全 プ ログ "ラス ・ ク スム 


OpSerm: defb '#Bad option Switch'.0 


i illegal function name 


ilferri: 

hl,i1ferm 
abt 
1lferm: M 
illfun: *111egal function name'.0 


ilefun:: 
1d hl,ilefum 
1d de,identi 
JP 
: defb 
defw 
defb 


, illegal name 


ilnerr:: 
hl,ilnerm 
abt 
ilnerm: "#" 
illnam: *I1legal name'+0 


ilenam:: 
hl ,ilenmm 
1d de, identi 
Jp 
: defb 
defw 
defb 


: illegal labe 


ilelab:: 
1d de,identi 
1d hl,illbem 
JP errOT 
illbem: defb '#111egal label : 


i bad string data 


1F4E* hl ,bstrms 

0000* JP erTOr 

42 61 64 bstrms: defb *#Bad string data',0 
73 74 72 

6E 67 20 

61 74 61 
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0026" 


1FC8* 
0000* 
0000 


49 6C 
67 61 
63 6F 
74 61 
20 3A 
00 


: too many arguments 
tmar9:: 
1d hl ,tmar9m 
Jp errOr 
tmargm: defb "#TOoO many ar9guments'、0 


・ illegal character 


illchri: 
1d hl,illchm 
1d de.Strbuf 
Jp abt 
illchm: defb '#I11egal character : 


: illegal constant 


ilcnds:: 
1d de,ilcndm 
) illcon1 
ilcndm: *displacement'.0 


ilcnor:: 
de、ilcnom 
illcon1 
11cnom: *over range'.0 


illcon: 
de.Strbuf 
illcon1: 
hl,illcnm 
errOr 
hl ,0 


defb *#111egal conStant : 


: bad constant 


badcon:: 
1d hl , badcnm 
JP abt 
badcnm: defb * 六 Bad conStant'、0 


bad addresS constant 
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conerr:: 
1d hl ,bdadcm 
Jp abt 
bdadcm: defb '#Bad address constant',0 


: 
: Syntax errOr 


hl ,Syems 
abt 
*#Syntax error'.0 


: bad index operation 


idxerr:: 
1d hl ,idems 
JP abt 
idems: defb '#Bad index operation'.0 


, bad expression 


eXPeTT:: 
1d hl , exemS 

abt 

*#Bad expreSSion'.0 


erTTOT 


iCharacter pointer ( Source PrOgram ) 
SOurCe 1ine number 

Optisw:: ioption switch 

Stmf1g:: inot 00Oh: statement, 00h: non statement 


codor9:: Code Segment origin addreSss 
datorg:: idata segment origin addreSs 
stkbot:: iStack bottom address + 1 


Cloc:: icode location counter 
dloc:: idata 1ocation counter 
wlOC:: iwork data location counter 
CoOnVal:: iConStant value 


ePtT:: ierror String pointer 
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0016" 
0017" 
0023" 
0025" 


0026" 
0036" 


0036" 
0037" 
0038" 
0039" 
003A" 


003B" 
003C" 
0078" 


0078" 


007A" 
007C" 
007E" 
0080" 
0082" 
0084" 
0086" 


0088" 
008A" 


008C" 
008D" 


008F" 


idetyP:: 
identi:: 
adrS:: 


Strbuf:: 
strbfe 


tokcod:: 
1ocalf:: 
datinl:: 
1oopb: : 

puhptf:: 


optble:: 
oprtbl:: 
oprtbe 


caladrii 


1opadr:: 
extadr:: 
COnVar: : 
terpar:: 
incPar:: 
Skpadr:: 
nxtadr:: 


Varadri: 
VarSiZ:: 


idxpsf:: 
retjad:: 


wOFK.6:: 


end 


def's 
defs 
def's 
defs 


def's 
eqU 


def's 
defs 
defs 
defs 
defs 


defs 
defs 
equ 


defs 


defs 
defs 
defs 
defs 
def's 
defs 
defs 


defs 
defs 


defs 
defs 


identifier tyPe 
iidentifier ( max 12 character ) 
iaddresS ( & constant value ) 
ifiller 


:String buffer 


itoken code 

, 00h: global, not 0Oh: 1ocal 

: Oih: data declare, 02h: inline statement 
inot OOh: use loop # Statement 

inot OOh: object " PUSH AF " output 


operand table store length 
iOperand table 


ifunction & Subroutine Call addreSs 


loop addreSSs 

iexit addreSSs 

icontrol variable addreSSs 
iterminal parameter addreSss 
iincrementation parameter addreSs 
iSkip addreSsSs 

inext addreSS 


ivariable addreSS 
ivariable Size 


iindex push flag 
iTeturn statement jump addreSs 
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(3 STRUNTIM. MAC の 構成 と アセ ンプ ブル ・ リ スト 

STRUNTIM.MAC は Stellar の ラン タイ ム ・ ル ー チ ン で , 

先頭 に 13 個 の エン トリ ・ ポ イン ト が あり ます 。 各 エン ト 
リ 処理 は 次 の よう に な っ て いま す 。 こ こ で TOP と は ラン 
タイ ム ・ ル レー チン の 先頭 アド レス の こと で す 。TOP の アド 
レス は 表意 定数 CODE で 得 ら れ ま す 。 

@start (TOP 十 0) : 生成 し た オプ ジェ クト ・ ブ プロ グラ 

ム を 実行 する 。 

@stop (TOP 十 3) : オブ ジェ クト ・ プ ログ ラム の 実行 
を 終わ ら せ る 。 

@mul.m (TOP 十 6) : 1 バイト の 乗算 (レジ スタ Aー 
レジ スタ A* ネ レジ スタ HL が 示す メモ リ の 値 )。 

@mul.r (TOP 十 9) : 1 バイ ト の 乗算 (レジ スタ A 一 レ 
ジス タ A ネ レジ スタ DD)。 

@divy.m (TOP 二 12) : 1 バイト の 除算 (レジ スタ A 
レジ スタ A プ レジ スタ H 過 が 示す メモ リ の 値 )。 

@div.r (TOP 十 15) : 1 バイ ト の 除算 (レジ スタ AA 一 レ 
ジス タ A プ レジ スタ DD)。 

@rem.m (TOP 十 18) : 1 バイト の 剰余 (レジ スタ A< 
レジ スタ A% レ ジス タ HL が 示す メモ リ の 値 )。 

@rem.r (TOP 十 21) : 1 バイ ト の 剰余 (レジ スタ AA 
レジ スタ A% レ ジス タ D)。 

@shl.m (TOP 十 24) : 左 シ フト (レジ スタ AA レジ ス 
タ A く < く レジスタ HL し が 示す メモ リ の 値 )。 
@shl.r (TOP 十 27) : 左 シ フト (レジ スタ AA 一 レジ スタ 

A< く < レジ スタ D)。 

@shr.m (TOP 十 30) : 右 シ フト (レジ スタ Aー レ ジス 
タ A>> レ ジス タ 是 し が 示す メモ リ の 値 ) 。 
@shr.r (TOP 十 33) : 右 シ フト (レジ スタ AA レジ ス 

タ A>> ッ レジ スタ D)。 

@setarg (TOP 十 36) : 関数 へ の 実 引数 を 仮 引数 へ 転 
送 す る 。 ま た , 再帰 的 な 関数 の 場合 は 局所 的 な 
変数 の セー ブ も 行う 。 

351 


@ リ スト 2-6 STERUNTI 


まだ た, ラン タイ ム ・ ル ー チ ン は ワー ク ・ エ リア と し て 
48 バ イト の RAM 領域 を 使用 し ます 。 そ の うち , 次 の 二 
つっ の 領域 は Stellar の ゲロ グラ ム で 参照 可能 な 領域 で す 。 
ここ で work は 表意 定数 work の こと で す 。 

arglen ( work 十 0) : 実 引数 の 数 。 

actarg ( work 十 1-32) : 実 引数 の 値 (第 1 引数 

一 第 32 引 数 まで )。 


M の アセ ンプ ブル ・ リ スト 


・Z80 


3 
・※ 


title Stellar run timeroutine Rev 1.0 05/15/1984 
name ("runtim') 


て 類 甘 拓 差 基 差 基 革 湊 基 基 注 基 泊 差 基 江 湊 基 基 攻 半 類 泊 基 基 基 基 基 基 基 区 基 甘 基 甘 半 基 基 六 交 


Stellar run time routine ( Rev 1.0 ) 
05/15/1984 
Copyright (c) 1984 H.Ohnuki / MIA 


ー Tun time 還 
CS69 

1 XX FU time entry xx 
@start:: JP main ieXeC main PTO9Tam 
@StOP:: JP stop iStop run 
@mul.mi: : JP mul.m imultiply a:= a * m(hl) 
@mul.T Jp mul.Y imultiply a :=a%d 
@diV.m JP diV.m  :divide 3 := a / m(h]1 ) 
ediv.r Jp div.r  :divide a :=a/d 
@Temm.m: : JP Tem. :Temainder a:=a%m(hl) 
@Temm.T:: JP Tem.T iTemainder a:=a%d 
@Sh1l .m: : JP Shl.m  :Shift left a:= a<< m(hl) 
eshl.T:: JP shl.T shift left a:=a<〈<< く d 
@shr.m:: JP shr.m jsShiftright a:=a >> m(h1l) 
@Shr.T:: Jp shr.T :Shiftright ai:s=a>>d 
esetag:: JP Setag  ・:Set argument 
XX mltiPlV XK 
: entry @mul.m ... 23:= ax m(hl) 
ij entry @mul.T .… a:=a※d 
mUl . 凍 : 

1d e,(hl ) 

defb 0feh 
mUl.T: 

1d e.d 
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2-3 全 プ ログ "ラム ・ ツ スム 


*X Shift left 


介 Shl。 画  。。。。 := 3 << m(hl) 
WShl。T  。。。< := a< く d 


p コ oOCpooONGCC 
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0060' 
0061' 
0062' 
0064" 


0065" 
0065' 
0066" 
0066" 
0067* 
0068" 
0069" 
006A' 
006B' 
006D' 
006F* 
0070' 
0071" 
0071* 
0073" 
0074' 
0076" 


0077* 
0077* 
007A* 
007E* 
007F* 
0082" 
0083" 
0086" 
0089" 
008A* 
008C* 
008F* 
0090' 
0092* 
0093" 
0094" 
0094' 
0095" 
0096' 
0097* 


87 
15 
20 FC 
C9 


FE 09 
3E 00 


22 0026" 
ED 53 0024" 
9 

22^0028" 


22 002A" 
3A 0000" 


28 0D 
21 0000" 


16 00 


10 FB 
002A" 
0024" 


1E 


0000 
52 


Shr.1: 


add 
dec 
Jr 

ret 


aa 
d 
nz,Shl .1 


XX Shift right %% 


@Shr . 
@shr.r 


a:= a >> m(hl ) 
a :=a>>d 


nz,Shr.1 


XX%※ PuSh local Variable & move acCtual argument to dummy aTgUment ※% 


: entry @setag 
: Parameter C : dummy ar9gument length ( 0...32 ) 
1 de: local Variable area size (reg de = 0 : non recurSive ) 
H hl: local variable area address ( dummy argument addreSS ) 
setag 
21: 1d (pshadr ) ,h1 
2922 1d (pshsiz) ,de 
POP hl 
23: 1d (retad1 ) , hl 
POP 1 
24: 1d (retad2 ) , hl 
?5: 1d a,(arglen) 
Or a 
Jr Z,5etag2 
26: 1d hl ,actarg-1 
1d e,a 
1d d,0 
add hl ,de 
ld b,a 
setag1: 
POP af 
1d (hl ) .a 
dec hl 
djJnz setagl 


hl ,(retad2) 
hl 

hl ,(pShSiZ) 
a.h 

1 

Z,Setag3 
de,hl 

hl .0 

hl .de 

hl .sp 
SP.h1 


2-3 会 プロ グラ ム ・ ツ スル 


・d 
・G 
de,hl 


0026" 29: hl , (pshadr ) 
BO 


bc 
0026" ?10: hl, (pshadr ) 
hl 


0024" 211: hl , (pshSiZ) 
hl 


00D5" : hl ,poplv 
hl 


a,C 
a 

0B ) Z,Setag4 

0026" 212: hl , (pshadr ) 
de,hl 

0001" 213: hl ,actarg 

00 b.0 

BO 

Setag4: 

0028" 214: hl , (retad1l ) 

(h1 ) 


H 1ocal Variable ※% 


POPIV: 


H XX StOP TU 


Stop: 
0021" 215: a,(@stptp) 
a 
03 nz,Stop2 
Stopl: 


FD stop1l 
StOP2: 
a iTeturn ? 
nz,Stop3 
2916: SP,(@retad) 


Stop3: 
a 
nz,Stop1 
217: hl ,(@retad ) 
) (hl ) 
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XX TUT time wOTK arTea ※% 


き 


@rtwOork:: 

arglen: defs 
actarg: defs 
estptp::defs 
@retad::defs 


・actual argument length 

iactual argument data 

:Stop type ( 0:HALT、1:RET. 2:JP nnmnn ) 
iStop type 1 : entry stackK pointer value 
・Stop type 2 : return addreSsSs 

*PuSh Size 

iPuSh addreSS 

iTeturn address 


DS)】 


pshsiz: defs 
pShadr: defs 
retad1: defs 
retad2: defs 
etemp:: defs 


トン トウ トウ トウ いやー の ーー 


temPOorary 


xx beginning Of Variable xx 


Code Se9ment 


crelat:: 
defw @startt1 .@stop+1 
defw @mul .m+1 、@mul .T+1 
defw @diV.mtl .@diV.r+1 
defw @rem.mt1 、@Tem.T+1 
defw @shl .m+1 .@Shl .r+1 
defw @ShT .mt1 .@Shr .T+1 
defw @setag+1 、@1+1 
defw @2+1 ,@3+1 
defw 0 


, data segment 


drelat:: 

?1+1.772+2 
23+1 24+1 
25+1.76+1 
27+1 ,78+1 
329+1.710+1 
?211+1.212+1 
213+1 、?14+1 
3215+1.2216+2 
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ク -3 全 プ ログ "ラム ・ ク スム 


〔 3 〕 CONVOBJ. COM 
CONVO0BJ. COM は CONVOBJ. MAC を 光 の 手順 で アセ ン 
ジグ ジル,。 リ シグ し で づる 《 り ま す 。 


M80 =L【(ONV0B) 
L 80 CONV0BI, CONV0B] /N/E 


CONVOBJ は Stellar コン パイ ラ が 出力 し た オブ ジェ ク 
ト ・ フ ァイル ( 図 2-7) を 入力 し , イン テル HEX 形式 の フ 
ァイル ( 図 2-8) を 出力 し ます 。 

この CONVOBJ. MAC は CPM 用 な の で , 他 の パッ ソコ 
ン (OS も 含む ) に コン パイ ラ を 移植 する と き は 移植 する 
パソ コン (OS) に 合わ せ て 入出 力 な ど を つく 〈 0 直す 必要 
が あり ます 。 


Stellgr コン パイ ラ が 出力 する オプ ジェ クト ・ フ ァイル の 形式 
@ オ プ ジ ェ クト ・ ス ター ト (オプ ジェ クト ・ フ ァイル は 必ず この オブ ジェ クト ・ ス ター ト で 始ま る ) 


上 位 土佐 ノー マル ・ モ ー ド で コン バイ ル し た オブ ジェ 
| 5 5 | 8 0lx xlx x クト ・ フ ァイル , ロケ ーション ・ カ ウン タ ヘ へ 
+ 1 ご スタ ー ト ・ ア ドレ ス を 設定 する 。 


スタ ー ト ・ ア ドレ ス 


下位 。 圭 位 デバ ッ グ ・ モ ー ド で コン バイ ル し た オプ ジェ 
クト ・ フ ァイル , ロケ ーション ・ カ ウン タ へ 
スタ ー ト ・ ア ドレ ス を 設定 する 。 


スタ ー ト ・ ア ドレ ス 


人 @ プ ログ ラム 名 の 指定 


現在 の ロケ ーション ・ カ ウン タ の 値 よ 
LSE IS. | り プ ログ ラム が 始ま る こと を 示す 。 


プロ グラ ム 名 (JIS コ ー ド ) 


人 @ 関 数 名 の 指定 


現在 の ロケ ーション ・ カ ウン タ の 値 
より 関数 が 始ま る こと を 示す 。 


関数 名 の 指定 (JIS コ ー ド ) 


Il 
全域 的 な 名 前 の 指定 現在 の ロケ ーション ・ カ ウン タ の 値 
が 名 前 の 値 ( ア ドレ ス ) に な る 。 
5 IX x | x x | | * X | 0 0 | n =8 一 A で , n = 8 な ら 定 数 名 , hn= 
3 5 一 9 な ら 変 数 名 nm= A な ら デ ー タ 名 。 


名 前 (JIS コ ー ド ) 
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ロケ ーション ・ カ ウン タ の 設定 


下位 上 位 


衝 。 生 上 1 衝 M 活 、 艇 ロケ ーション ・ カ ウン タ の 値 を 変更 する 。 


新しい ロケ ーション 
カウ ンタ の 値 


代 ア ドレ ス の チェ イン 


チェ イン ・ ア ドレ ス て で 結ば れる すべ て の アド 
レス を 現在 の ロケ ーション ・ カ ウン タ の 値 に 
置き 換え る 。 チ ェ イ ン の 最後 は 2 バイ ト の ゼロ と する 。 


チェ イン ・ ア ドレ ス 


例 1426 番 地 1401 番 地 1351 番 地 132c 番 地 
2 ャ ャ ャ 


le | * 5 ロロ ョ ーー ュー レー ele s 
上 上 上 上 上 + 上 ユ 上 


これ を 現 ロ ケー ショ ン ・ カ ウン タ の 値 を 14 2C て と し て アド レス 
の チェ イン (8I, 26, 14) を 行う と 次 の よう に な る 。 


1426 番 地 1401 番 地 1351 番 地 


132c 番 地 
2 2 ャ ト 2 
2 cli 4 | ci 4| |z cl, |z el し | 
上 1 1 」 1 1 1 」 
スト ア ・ デ ー タ 
ロケ ーション ・ カ ウン タ が 示す メモ リ に 1 バ 
lo olh h イト の 値 hh を スト ア す る 。 ロケ ーション ・ 
ST カウ ンタ は スト ア 後 +†| され る 。 
1 バイ ト の デー タ 
ロケ ーション ・ カ ウン タ が 示す メモ 
lp nlh hlh hl |Ih_ hlh h リ よ り (! パ イト ー64 バ イト ) hh… 


hh の 値 を 順に スト ア す る 。 ロ ケー シ 
ョ ン ・ カ ウン タ は スト ア し た 分 だ け 
プラ ス さ れる 。 


n nn バイ ト の デー タ (| バイ トー64 バ イト ) 


信行 番号 の 表示 (CP/ バ パー ジョン で は サポ ー ト し て いな い ) 


トレ ー ス の た め の 行 番号 を 表示 する 。 こ の 形式 の オプ ジ 
免 窓 』 も 上 ML し ェクト を 入力 し た 場合 , 次 の よう な 命令 に 展開 する 。 


66 一 *CALL 行 番号 表示 の た め の ル ー チ ン 
行 番 号 ( バ イナ リ ) し pe LL UL 


今 関 数 名 の 表示 (CP/A バー ジョ ン で は サポ ー ト し て いな い ) 


トレ ー ス の た め の 開 数 名 を 表示 する 。 
EE 本 3 に x | lx xlo ol この 形式 の オブ ジェ クト を 入力 し た 
5 場合 次 の よう な 命令 に 展開 する 。 
関数 名 (JIS コ ー ド ) 
6 7 一 ょ CALL 関数 名 表示 の た め の ル ー チ ン 
=ー ー-*DEFB xx, xx,…, xxX, 0 
xx 
00 
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人 @ 実 行 の 中 断 (CP/W バージョン で は サポ ー ト し て いな い ) 


実行 の 中 断 を 行う 。 こ の 形式 の オブ ジェ クト を 入力 し 
【 た 場合 は , 次 の よう か 命令 に 展開 する 。 


上 
行 番号 (バイ ナリ ) 68 一 - CALL 実行 中 断 の た め の ル ー チ ン 


し し 
LUL ーー PDEFB LL UL 


氏 オ プ ジ ェ クト ・ エ ンド 


F 上 匠 オプ ジェ クト ・ フ ァイル の 終わ り を 示す 。 


イン テル HEX 形 式 の ファ イル の 内 容 


テキ スト 形 の ファ イル で 一 つの レコ ー ド は CR, LF コー ド で 区 切ら れ て いる 。 
レコ ー ド の 形式 は 炊 の よう に な っ て いる 。 


LLaaqaat+t dddd dd cc 


チェ ッ ク ・ サ ム …………… 次 の 式 の 値 を 16 進 2 桁 で 表す 。 
cc= ニ 0 一 (し L+aa 二 aa+ 財 dd+…+dd) 


1 バイト を 1!6 進 2 桁 で 表わす 。 
最終 レコ ー ド は 01., 他 は 00 


デー タ の 先頭 の バイ ト の アド レス ., 
16 進 4 桁 で 表す (上 下 は 逆 で は な い )。 


レコ ー ド 長 … … デー タ の バイ ト 数 . 16 進 2 桁 で 表す 。 


レコ ー ド ・ マ ー ク ・ … レ コード の 開始 を 示す 。 文字 コ ロン (: ) 
で 表す 。 
例 


:10010000C3F70IC3DFOIC3270IC3290IC3390IC3F9 


レコ ー ド 長 | レコ ー ド タイ プ 00 デー タ 16 バ イト 分 チェ ッ ク ・ サ ム 
16 バ イト 
ロケ ーション ・ ア ドレ ス 
0100 番 地 
:0000000IFF 一 最終 レコ ー ド 。 最 終 レ コー ド は レコ ー ド 長 , ロケ ーション ・ ア ドレ ス 
と も に ゼロ に する 。 
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@ リ スト 2-7 CONVOBJUJ の アセ ン ブ ル ・ リ スト 


title convert object to intel HEX 
subttl Rev1l.00 06/15/1984 
name ("covobj') 


・Z80 
ュー 
3 に 
は convert stellar compiler object . 3 
R to intel HEX file 拓 
3 基 
は ( Rev 1.00 ) 06/15/1984 に 3 
1 3 
は Copyright (c) 1984 H.Ohnuki / MIA ※ 
人 3 
て 拓 拓 拓 半 拓 拓 拓 拓 拓 拓 六 拓 拓 六 拓 拓 拓 拓 拓 拓 拓 拓 
Tev equ 100h irevision 1.00 
H CP/m-80,mSX-doS interface 
reclen equ 128 i 1 record = 128 byte 
boot eqU 0000h jsystem reboot entry 
bdos eqU 0005h  ibdos entry 
dfcb eqU 005ch idefault fcb 
dbuff equ 0080h idefault buffer 
tpa eqU 0100h itpa address 
htab eqU 09h jihorizontal tabulation 
(ed eqU 0dh iCarrTiage return 
1f equ 0ah iline feed 
eof equ 1ah iend of file 
putchrf equ ンス iput console character 
Printf equ 9 iprint string function 
openf equ 15 iopen file function 
closef equ 16 iclose file function 
deletf equ 19 idelete file function 
readf equ 20 iread next record 
writef equ 21 iwrite next record 
makef equ 22 imake file 
Setdmf equ 26 iSet dma addreSS 
PTO9TaM ー 
CSe9 
Start:: 
1d hl , (bdos+1 ) 
1d 1,0 
1d SP,hl iSet sp reg9 
1d de,-128 iStack size = 128 byte 
add hl,de 
1d (freeda) ,hl iSet free area ending addreSs 
inc hl 
inc hl 
1d (objmov) , hl 
1d hl ,($memry) 
1d 1.0 
1nc h 
1d (frebga) ,hl iSet free area beginning addreSS 
1d de,stamsg 
1d CpPrintf 
Cal1 bdos iPrint starting meSSa9ge 


2-3 会 プロ グラ ム ・ グ スム 


0023′ 3A 005D 1d a.(dfcbt1 ) 

0026' FE 20 CP 浴 file name Ok ? 
0028′ CA 03C5" JP ZnOfile 

002B' 21 0065 1d hl ,dfcb+9 

002E' 7E 1d a, (hl ) 

002F′ FE 20 CP ラリ 

0031′ 20 6B Jr nz,rdobjf 

0033′ 36 4F 1d (h1),*0" 

0035′ 23 inc hl 

0036′ 36 42 1d (hl),'B' 

0038′ 23 inc hl 

0039′ 36 4A 1d (h1),*J* iSet file type '.OBJ' 
003B′ 18 61 Jr rdobjJf 


003D' 0OD 0A 53 74 stamsg: defb cr,1f "Stellar utility, convert object ==> intel HEX' 
0041′ 65 6C6C61 
0045′ 722075 74 
0049′ 69 6C69 74 
004D' 79 2C20 20 
0051′ 636F6E76 
0055' 65 72 74 20 
0059′ 6F 62 6A 65 
005D' 63 74 20 3D 
|0061′ 3D 3E 20 69 
0065' 6E74 65 6C 
0069′ 20 48 45 58 


006D'′ 0D0OA52 65 defb CT,1f "Rev 『* 

0071′ 76 20 

0073′ 31 2E30 30 defb rev/100h+'0' "(Fev/10h and Ofh)+'"0',(rev and Ofh)+'0* 
0077′ 20 20 43 6F defb *′ Copyright (c) 1984 H.Ohnuki / MIA' 


007B' 707972 69 
007F′ 67 68 74 20 
0083′ 28 63 29 20 
0087′ 31 39 38 34 
008B' 20 20 48 2E 
008F' 4F686E75 
0093'′ 6B69 20 2F 
0097′ 20 4D 49 41 
009B' 0D0A 24 crlf: defb CT,1f"$" 


H read object file 


009E' rdobJf:: 


009E'′ AF XOr a 

009F' 32 000D" 1d (symotf ) ,a 

00A2′ 32 007C 1d (dfcb+32),a ireset dfcb.Cr 
00A5' 11 005C 1d de,dfcb 

00A8′ 0OEOF 1d C,OPenf 

00AA' CD 0005 Ccal1 bdos iOpen Object file 
00AD′ 3C inc a 

OOAE'′ CA 03C5' Jp Z,nofile 

00B1* 3E 80 1d areclen 


32 0000" (bufptr),a 


CD 0443* getobj iget object file 


00B9′ FE55 CP 55h Start mark ? 

00BB' 28 08 Jr Z,rdobjJf1 

00BD′ FE 65 CP 65h iSym file out ? 

OOBF' C2 0422* Jp nz,badobj 

00C2′ CD 050F* Cal1 mkKsyf1 ? 昌 ake Sym file 

00C5* rdobjf1: 

00CS* CD 0443* ca11 getobJ 

00C8' .D6 80 Sub 80h ilocation counter set ? 
00CA' C2 0422* JP nz,badobj 


C3 020E* setloc1 
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00F1* 


00F4' 
00F7* 
00F8' 
00FA* 
00FD' 
0100" 
0101" 
0102* 
0105" 
0106" 
0107* 
010A* 
010D* 
0110' 
0111" 
0112* 
0115" 
0116' 
0117* 
011A' 
011C* 


0O11F* 
O11F' 
0122* 
0123" 
0125" 
0126' 
0129* 
012A* 
012C* 
012D' 
012E* 
0131" 
0132* 
0132* 
0134* 
0137* 
0139* 
0139* 
013C* 
013D' 
013F* 
0142* 
0143* 
0144* 
0146'* 
0148" 
014A* 


CD 0005 
3A 000D" 


28 25 
3A 0006" 
CD 04F9* 


CD 054B' 


CD 054B" 
3A 0005" 
CD 04F9* 


CD 054B* 


CD 054B* 
0 
CD 054B* 


CD 0443* 


CD 054B* 


OE 02 
CD 0005 
18 E6 


3A 000D" 
B7 


28 17 
21 002F" 


rdnext: 


prtnam1: 


Prtnam2: 


prtnam3: 


getobj 
0ffh 
Z,endobj 
56h 
Cc,Setloc 
5ah+1 
nc,Setloc 
56h 

aa 

1,a 

h,0 
de,namadt 


d, (hl ) 
Cprintf 
bdos 


a, (SymOtf ) 


a 
Z,Pprtnaml 
a,(l1oc+1) 


getobjJ 

a 
Z,Prtnam3 
6,a 

a。 (Symotf ) 
a 


Z,PTtnam2 
de 

ae 
wrSymf 

de 


C,putchrf 
bdos 
prtnaml 


a, (Symotf ) 
a 


Z,prtnam5 
hl ,Symhcu 
(hl ) 
a,(h1 ) 

4 

ahtab 
nz,Prtnam4 
(hl ) ,0 


send mark ? 


iname ? 


ijSymbol file addreSS Out 
iConvert to hex 


iConvert to hex 


iSym file out 


iPTint name 


3E 0D 
CD 054B* 
3E 0A 


CD 054B* 


11 0206' 
OE 09 

CD 0005 
2A 0005" 
CD 04E4* 
C3 00D0* 


0171' 0184' 
0197'′ 01AA' 
OD 0A 50 72 
6F 67 72 61 
6D 20 20 6E 


0D0A50 72 

6F 67 72 61 

6D 20 73 69 

7A 65 20 20 
20 24 

20 SB 20 


50 61 67 
20 5D 0D 
24 

3D 20 24 


FE 80 
22 


endadr: 


Pr9S1Z: 


Pag9SZ1: 


Pa9SZ2: 


2-3 会 プロ グラ ム ・ グ スム 


wrSymf 


de,eqSym 
CpPrintf 


iPrint addreSSs 


PT9ma 陳 。fUmma 了 本 。COnmam。Varnam,datnam 


cr,1f,"Program name : $' 


Cr,1f "Function name : 


cr,1f "Constant name : 


cr.1f、"Variable name : 


Cr,1f "Data 


cr,1f,1f。Emd address :$' 


cr,1f "Program S1ze :$' 


・ [$" 
・ Page ]'。cr,1f も 


・= $ 


80h ilocation counter set ? 
nz,adrcha 
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4B 0005" 
0001" 
027A* 

E 


0443" 
0005" 
0005" 

B 

ED 5B 0001" 

19 

CD 027A* 


10 E8 
00D0' 


ED 5B 0007" 
B7 

ED 52 

DA 0422" 


5B 0009" 
52 


adrcha:: 


adrchal: 


(loc) ,hl Set 1oc 
af 

a 

nz,rdnext 

(prgor9) ,hl 

de,hl 

hl ,(frebga) 


a 
hl、de 
(offset) 、hl 


addreSS chain ? 


iaddresS check 


iaddress set 


nc, badobj 
ba 


a 
nz,Codobj1 
b 


de, (offset) 

hl ,de 

adrchk iaddresS check 
(hl1),a iStore object code 
codobj1 

rdnext 


hl 
de,(frebga) 


: hl >= frebga ? 


de,(freeda) 
a 
hl,de > hl < く freeda ?2 


2-3 全 プ ログ ラム ・ ク スム 


D2 0422* 1] nc、badobj 
EI hl 
C9 


endobJ: : 
3A 000D" 1 a.(Symotf ) 
a 
nz,ClSymf *Sym file cloSe 
de,endadr 
Cc.Printf 


iprint end addreSSs 


de,Pr9Siz 
Cc.Printf 
bdos 

hl , (1oc) 
de, (prgorg) 
a 


iPTint program SiZe 
de,PagSZz1 
Cprintf 


iPrint page SiZe 
de,PagSZ2 
CpPrintf 
bdos 


write hex file 


hl ,dfcb+9 


iSet file type '.HEX* 


iTeSet dfcb.ex 
de,dfcb. 
de 
C,deletf 

idelete old hex file 


imake new hex file 
a 
Z,dirful 


a 
(dfcbt32 ) ,a iTeSet dfcb.Cr 
(bufptr),a 


5B 0003" de, (Pr9or9) 
wrhexf 1 
0005" 1 hl ,(1oc) 


a 
ED 52 hl,de 

28 54 Ziwrhexf3 
06 10 b,16 

7C ah 
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: de-loc >= 16 ? 


wrhexf1.5: 


iwrite recOrd mark 「:" 


iwrite record length (16 byte) 


iwrite location addreSSs 


iwrite record type (00h) 


wrhexf2: 
hl,(offset) 
hl ,de 
a,(h1 ) 
a, で 
Ca 
a,(h1 ) 


iwrite hex code 


iwrite CheCk Sum 


iwrite Cr,1f 
wrhexf1 
hl , endrec 
a, (h1 ) 


a 
Z,wrhexf5 


jiwrite end record 


2-3 全 プ ログ ラム スル 


0371′ 3A303030 endrec: defb 00000001FF'。cr,1f 0 
0375′ 30 30 30 30 
0379′ 31 46 46 0D 
037D' 0A 00 
037F* wrhexf5: 
037F′ 3E1A 1d aeOf 
0381′ CD 047B' Ca11 wrhf1 ieof write 
0384' 3A 0000" 1d a。(bufptr ) 
0387′ B7 Or a 
0388′ 20 FS5 Jr nz,wrhexf5 
038A'′ 11 005C 1d de,dfcb 
038D'′ OE10 1d C,CloSef 
038F' CD 0005 Cca11 bdos iClose file 
0392′ 3C inc a 
0393′ 28 77 Jr ZIOC1S 
0395′ 21 03A3* 1d hl ,mmOVtpa 
0398′ ED 5B 000B" 1d de, (objmoV) 
039C′ D5 push de 
039D' 01 0022 1d DC, WWOVtPae-mOVtPa 
03A0'′ EDBO 1dir 
03A2'′ C9 ret ichain 
H move object to tpa & return to OS 
03A3* mmOVtPa:: 
03A3′ 2A 0005" 1d hl,(1oc) 
03A6′ ED 5B 0003" 1d de,(Pr9or9) 
03AA B7 Or 3 
03AB ED 52 Sbc hl ,de 
03AD CA 0000 JP Z。boot 
03B0 44 1d bh 
03B1 4D 1d C。1 
03B2′ 2A 0007" 1d hl .(frebga) 
03B5′ 11 0100 1d de,tpa 
03B8′ ED B0O 1dir imOVe 
03BA′ EB eX de,hl 
03BB* movtpal : 
03BB 7D 1d a。1 
03BC B7 Or a 
03BD′ CA 0000 Jp Z,boot ireturn to os 
03C0 36 00 1d (hl1).0 
03C2 23 inc hl 
03C3′ 18F6 Ra movtpal 
03C5" moOvtPae: 
H GFTOr 
03C5* nofile: 
03C5* 11 03CB" 1d de,$+6 
03C8' C3 043B* Jp errOor 
03CB* OD 0A 25 4E defb Cr,1f "XNo object file$' 
03CF′ 6F 20 6F 62 
03D3′ 6A 65 63 74 
03D7′ 20 66 69 6C 
03DB' 65 24 
03DD* dirful: 
03DD' 11 03E3* 1d de,$+6 
03EO' C3 043B* JP errOor 
03E3′ 0D 0A 25 4E defb Cr,1f。"%No directory Space$* 


de,$+6 
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C3 043B* 


38 17 


0000" 
00 
11 0080 


21 0000" 


noC1S* 


badobj: 


getobJ1 : 


・Set dma addresSs 


iTead object file 


Object 


Jp errOr 

defb cr,1f,"%Disk ful1$" 
1d de,$+6 

JP error 

defb Cr,1f,"%Canmot cloSe$* 
1d de,$+6 

Jp errOr 

defb Cr,1f 。"%Bad object file$" 
1d Cprintf 

Cal11 bdos 

JP boot ireturn to OS 
wK 9et Object file we 

1d a、(bufptr ) 

CP reclen 

Jr c.getobj1 

XOT a 

1d (bufptr ) 、a 

1d de.dbuff 

1d C、Setdmf 

cal1 bdos 

1d de,dfcb 

1d C.readf 

cal1 bdos 

Or a 

Jr nz,badobj 

1d hl , (bufptr) 

1d 1 

1d de,dbuff 

add hl,de 

1d a,(h1 ) 1 8 = 
1d hl ,bufptr 

inc (hl ) 

1d 1,a 

ret 


XX 。 wFite heX 


H a : write data 
ca11 binhex 
PuSh de 

1d ad 

Cal1 wrhfl 

POP de 

1d ae 

1d hl , (bufptr) 
1d PD 

1d de,dbuff 
add hl,de 


iConvert to hex 


2-3 全 プ ログ ラム ・ ツ スム 


7 (hl),a 
0485′ 21 0000" 1d hl,bufptr 
0488′ 34 inc (h1) 


a,(h1 ) 


Set dma addreSS 


Crwritef 
bdos 


iwritefile 


上! 
nzZ,dSkfu1 


X PFinmt decimal we 


hl: print data 


04A4′ 16 00 1d d,0 

04A6' 01 2710 1d bc,10000 

04A9′ CD 04C7" Cal1 prdecs 
bc,1000 


04C4' C3 0005 Jp 
04C7* PrdecS: 
04C7′ 1E 30 1d 


04C9* PrdecS1: 


04D1" 7B 1d 6 
04D2′ FE 30 CP *0* 
04D4′ 20 03 Jr nZ,PrdecS2 
04D6′ 15 dec d 
04D7′ 14 inc d 
04D8′ C8 ret の 
04D9* PrdecS2: 
04D9* 14 inc d 
04DA' ES push hl 
04DB* D5 puSh de 
04DC′ 0OE 02 1d C,Putchrf 
04DE' CD 0005 Cal1 bdos 
04E1′ D1 POP de 
04E2'′ El Pop hl 
04E3′ C9 ret 
H ME PFImt heX 
04E4' prhex4:: : hl:print data 
04E4′ E5 PuSh hl 
04E5'′ 7C 1d aih 


prhex2 
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iConvert to hex 


XX COnVert to hex 


a: 8 bit binary 


binhex1 


binhex1: 


Set symbol file fcb 


(sfcb+32) ,a iClear sfcb.ex, Ss1、52.cr 
de 


Cc.deletf 
idelete old sym file 


make new Sym file 


a 
Z,dirful 
hl,0 
(sbptr ) ,hl 
a,0ffh 
(Symotf ) 、a 


XX write Symbol file x% 
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5B 0030" 
0032" 
1A 


7F 


ED 53 0030" 
CD 056A' 
11 000E" 


wrSymf1: 


WTSymf2: 


C1SymfE: 
1 


2-3 会 プロ グラ ム ・ グ スル 


: write character 


・a・ 
C,wrSymf0 
*Z"+1 
nc,wrSymf0 
20h 


hl , (sbptr ) 
hl 


(sbptr ) ,hl 
de,Sbs1z 


a 
hl ,de 
C 


hl ,(sbptr) 
de,Symbuf 


hl 


de 
Cc,Setdmf 
bdos 
de,Sfcb 
Cuwritef 


nzZ,wTSymf2 
(sbptr ) ,hl 


XX ClOSe Symbol file 


3, (SymhCu) 
上 1 
Z。C1Symf 1 
a。CT 
wrSymf 
a:1f 
WTSymf 


de, (sbptr) 


hl ,Symbuf 
hl,de 

(hl ) ,eof 
de 

ae 
reclen-1 


nZ,C1Symf2 
(sbptr ) ,de 


wrSymfl 
de,Sfcb 


itranslate to upPer CaSe 


ibuffer Store 


: Sbptr >= sbsiz ? 


iSet dma addreSS 


iwrite file 


基 


idiSK write 
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05BF* 
05C2* 
05C3* 


05C7* 


05C9* 


0000" 
0001" 
0003" 
0005" 
0007" 
0009" 
000B" 
000D" 
000E" 
002F" 
0030" 
0032" 
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bufptr::defs 
offset::defs 
pr9org::defs 
loc:: defs 
frebga::defs 
freeda::defs 
objmov: :defs 
SymOtf::defs 
sfcb:: defs 
SymhCu: :defS 
sbptr:: defs 
Symbuf : :defS 
Sbsiz equ 


end 


C,CloSef 
bdos 

a 
Z,noclSs 


2 ifree area addresS ( LINK-80 set ) 


ibuffer pointer 
iaddress offset 
iPrOogTam Origin 
ilocation counter 
ifree area beginning addreSSs 

ifree area ending addreSs 

iObject tpa move routine entry addreSSs 
iSymbol file output flag 

iSymbol file fcb 

iSymWbo] horizontal out count 

jiSym file output buffer pointer 
reclenx4 iSymbol file output buffer 
$-Symbuf ibuffer size 


人 


start 


韻 
の 
博 


7e//oy 


IPC-8807 
壮介 
際 二 か 
OU 
肝 馬 Ri い 


PC-8801/mk II の N88 一 BASIC 上 で 動作 
する Stellar コン パイ ラ の 使用 法 ,。 な ら び に 各 
種 ラ イプ ラリ に つい て の 説明 を し ます 。 な お , 


ディ スク の 使用 を 前 提 に し て いる の で , カセ ッ 
ト で 使用 する 場合 は 操作 が 異な っ た り , 使え な 
い ラ イプ ラリ が ある の で 注意 し て くだ さい 。 


うー / コン ラマ プラ の 怒 万 六 
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N88 一 BASIC 上 で Stellar コン パイ ラ を 使う と き は , 
次 の 操作 を 行い ます 。 

① 電 源 を ON する か , リセ ッ ト ・ ス イッ チ を 押す 。 

② How many files (0 一 15) ? と 表示 きれ だ ら 50 一 2 

の いずれ か の 数 字 を 入力 する 。 

⑬③ デ ヂ ディ スク か 6 ら 6 Stellar コン パイ ラ を ロー ド す る 。 た 
と えば ユン パイ ラ が ファ イル 名 stelar.Db5 で ドラ イブ 1 
に ある な ら , 次 の コマ ンド を 入力 する 。 


CLEAR , &HB4FF [=| 
BLOAD “stelar. b5"。 RI 


以上 の 操作 に より , N88- BASIC に Stellar コン パ 
イラ の た め の 次 の 五 つ の コマ ンド が 追加 きれ , いつ で も 
使用 で きる 状態 に な り ま す 。 

CMD COMP ………… バ コン ジッ 2 パイル し 。 オ デジ ェクト ・ デ 
ログ ラム を VRAM 上 へ 出力 する 。CMDCOMP パ び PYE 
する と , コン パイ ル 中 の メッ セー ジ (CP/M バ パー ジョ 
ン と 同じ 内 容 ) を プリ ンタ に も 印字 する 。 

CMD LOAD ………… バ VRAME 上 の オブ ジェ クト ・ プ ブロ 
グラ ム を メイ ン ・ ヌ モリ ヘ ロ ー ド する 。 CMDLOAD “P? 
と する と, ロー ド 中 の メッ セー ジ (CPM バー ジョ ン 
の CONVOBJ と 同じ 内 容 ) を プリ ンタ に も 印字 する 。 ロ ー 
ド き る れ だ オブ ジェ クト ・ プ ログ ラム は , CMD RUN, USR 
関数 。CALL 文 に よっ て 実行 で き る 。 

CMD RUN PO ロー ド し た オブ ジェ クト ・ ブ ログ 
ラム を 実行 する 。 実行 開始 アド レス は CMDLOAD に よっ 
て 設定 され る 。 デ バッ グ ・ モ ー ド で コン パイ ル さ れ た だ プ 
ログ ラム は 必ず この CMD RUN で 実行 し な けれ ば な ら な 
い 。 また だ , CMDRUN&Hhhhh と する と hhhh 番地 か ら 実 行 
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する こと が で きる 。 こ れ は 引数 の な い USR 関数 , CALL 文 
と 思 を ば よい 。 一 度 CMD RUN &Hhhhh を 実行 する と , 次 
の CMD RUN は hhhh 番地 か ら 実 行き れる よう に な る 。 


CMD CONT ………… % break な ど で 中 断 し た プ ブログ 
ラム の 実行 を 再開 する 。 
CMD LIST 文字 列 "……… ス トリ ング ・ サ ー チ 。 


Stellar の ソー ス ・ プ ログ ラム か ら 指 定 さ れ た 文字 列 を 含 
む 行 を 探し , 該当 する 行 れ を すべ て ディ スプ レイ に 表示 す 
る 。CMD LLIST 文字 列 ?/ と する と , 表示 する 内 容 を そ を 
の まま プリ ンタ に も 印字 する よう に な る 。 

これ ら の コマ ンド は 実行 中 , 表 3-1 の キー を 押せ ば 
一 時 停止 」 中断 が で きま す 。 

図 3-1 は Stellar コン パイ ラ 使 用 中 の PC-8801 の メ 
モリ の 状態 を 表し た も の で す 。 


一 時 停止 , 中 断 の 仕方 


コン ンマ イラ の 盛 流 


※| CAD RUN は デバ ッ ク ・ モ ー ド で % Tron の と きのみ 有効 
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メモ リ ・ マ ッ プ 
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コン パイ ル 中 オプ ジェ クト ・ 
シン ボル ・ テ ー ブ プロ グラ ム 
stellar ル 用 と し て 使用 出力 エリ ア 
コン パイ ラ 本 体 


トー G-VRAM( 青 ) 「「「「 G-VRAA( お ) 


テキ スト ・ エ リア 
(ソー ス ・ プ ログ ラム ) 
19K パ イト 


通常 の 
Na-BASIC と 同じ 


で 少 p の デフ ォ ル ト (% ミ 500 

CMD LOAD て オプ ジ 0 
クト ブログ ラム を ロー ド kd の デフ ォ ルト (%%d :$d500) 
12.25 K バ イト 


し ーッ 
N。-BASIC の \ 
ワー ク ・ エ リア 、stellor 


|。 メイ ン ・ メ モリ 側 の プロ グラ ム 


多 s の デフ ォ ル ト (%s :$e 600) 


う 2- ク ソン ー ス ・ フ ログ ラム の つく の か だ 


Stellar の ソー ス ・ プ ログ ラム は N88 一 BASIC の 注釈 
行 (引用 符 ' た よる) で つく り ま す 。 を その 形式 は 次 の 通り 


て すら 
| 行 番号 "1 行 分 の ソー ス ・ プ ログ ラム | 
ソー ス ・ プ ログ ラム 中 に は REM に よる 注釈 や 一 般 の 


BASIC 文 を 書い て は な り ま せん 。 
例 . 


100 “prog tst ( ) : 
520 " a :=87/3 : 
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プー 徒 万 た の 流 意 
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Stellar コン パイ ラ を N88 一 BASIC 上 で 動作 きせ て 
いる と き は , 次 の よう な 点 に 注意 し て くだ きい 。 
普通 の BASIC の プロ グラ ム を 走ら せる と き は , 実 
行 を 始め る 行 番号 を つけ て 


RUN 行 番号 


と し て 《 だ さい 。 

② 裏 RAM の 0001 番 地 一 0002 番 地 に ゼロ 以外 の 値 を 入 
れ て RUN す る と 禁 走 する こと が あり ます 。 

③ Stellar コン パイ ラ を ロー ド す る と き , 0000 番 地 か 
ら の BASIC の テキ スト を 3400 番 地 以 降 に 転送 し ます 。 
この と き 0000 番 地 以降 に BASIC の テキ スト 以外 の プロ 
グラ ム が 入っ て いる と 禁 走 する こと が あり ます (この よ 
うな と き は 一 度 リ セ モット し て か ら ロ ー ド する )。 

④③ の 転送 の 際 、 BASIC の テキ スト が 7FFF 番地 を 
超え る と Out of memory の エラ ー を 出し ます 。 こ の 場 
合 , N88 一 BASIC に は Stellar コン パイ ラ の た め の コ 
マン ド は 追加 る れ ま せん 。 

⑤ PC-8801 mk II に 元 来 あ る CMD 使用 の 拡張 コマ ンド 
は 使 を な く な り ま す 。 

⑥ コ ユン パイ ラ は オブ ジェ クト ・ プ ログ ラム を 一 度 VR 
AM ( 赤 ) へ 出力 する の で , コン パイ ル 後 CLS 3 な どの 
命令 で グラ フィ ッ ク 画 面 を 消す と オプ ジェ クト ・ プ ログ 
ラム も 消え て し まい ます 。 

⑦CMD COMP と CMD LOAD を 実行 し た と き は, 
SCREEN, 3 を 実行 し た の と 同じ 状態 に な り ま す 。 

⑧ AUTO コマ ンド 実行 時 に 行 番号 の 後に 引用 符 () が 
出 ま す が ,。 これ を や め る と き は ED18HH 番 地 に C9H 
を 書き 込ん で くだ さい 。 


3-3 全盛 た の 注意 


⑨ デ バッ グ ・ モー ド に お いて ( %break や 実行 中 の 
STOP キー に より ) 中 断 し た と き は , モニ タ で 中 断 時 の 
レジ スタ の 値 を 見 た り , レジ スタ の 値 を 変更 し て CMD 
CONT で 実行 を 再開 する こと が で きま す 。 

レジ スタ の 読み 出し は Z R で , 書き 込み は ZW で 行い 
ます 。 読み 出し , 書き 込み が で きる の は , AF, BC, DE, 
HL, IX,、IY,。 PC, SP の 各 レ ジス タ で す 。 
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プー ラプ アブ ラル の いか た 
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PC-8801 用 の ライ ブラ リ に は , 基本 ライ ブラ リ , コン 
ツー ル 入 出力 ライ ブラ リ , 算術 ライ プラ リ , ファ イル 入 
出力 ライ ブラ リ , 物理 ディ スク 入出 力 ラ イブ ラリ の 五 つ 
が あり ます 。 こ れ ら の ライ ブラ リ を 使う と き は , MERGE 
コマ ンド で 自分 で 作成 し た プロ グラ ム の 一 部 と し て 組み 
込み ます 。 


〔 1 〕 基本 ライ ブラ リ 

基本 ライ ブラ リ に は 次 の 六 つ の 関数 が あり ます 。 

( i ) console (( ス クロ ー ル 開始 行 > < スク ロー ル ん 行 
数 >,、 < フ ァ ン クシ ョ ン ・ キ ー 表 示 ス イッ チ >, く カ 
ラー ング 白黒 スイ ッ チ >) 

(ii) width (< 桁 数 > < 行 数 >) 

(ii) screen (< 画面 モー ド >, < 画面 スイ ッ チ >) 

(iv) color (〈( フ ァ ン クシ ョ ン ・ コ ユー ド >) 

(v) cls (< 機能 >) 

(vi) locate (< く X 座 標 >, <Y 座 標 > < く カー ソル ・ ス イッ 
ブウ) 

注 ) < > で 囲ま れ た 項目 は パラ メー タ の 内 容 を 示 
す 。 ま た , (ji) (jiv) で は 残り の パラ メー タ は 指 
定 で き な い 。(v) で は どの 画面 モー ド の と き で も 
B RG の 三 画面 を すべ て クリ ア す る 。 

機能 は N88 一 BASIC の コマ ンド と は ほ ば 同じ で す 。 変 

更 し た く な い パ ラメ ー タ は 一 1 を 指定 し て くだ さい 。 


3-24 ライ ブラ ク の い み 


⑱⑯ リ スト 3-| 基本 ライ ブラ リ 


3.Screen 
10040 ' /※ 4.color ※/ 


10050 ' /% 5.clS 74 
10060 ' /* 6.10cate ※/ 
10070 ' /※ メ / 
10080 ' / written by K.ISizuka X/ 
10090 ' /% 09/05/84 %/ 
10100 ' /% ※/ 


10110 ' console(S,n,F,Ci#。 入 ) 
10120 var CNSDFG at ($e6b8 ) ,LINEND at ($e6b1 ) : 
10130 " var SCRLL1 at ($e6b2) ,SCRLL2 at ($e6b3): 


10140 " var CMODE at ($e6b9): 

10150 { 

10160 SCRLL1 =?7(S く =25iS+1.7(not Si:25.SCRLL1 ) ) : 
10170 " SCRLL2:=7(n く <=25:2(ninmtS。1).7(nmot ni25,SCRLL2 ) ) : 
10180 " if notF 

10190 thent 

10200 " ifF 

10210 " then CNSDFG: =$ffi 

10220 else (inline $cd,##$4021:CNSDFG: =0:} 
10230 * } 

10240 " Ci=?(not CiC,CMODE): 

10250 " inline 

10260 " $3a ,#.C。 /x 1d  a,(.C) ※/ 
10270 " $cd,#$70d1:  /* call 70dih  */ 


10280 } 

10290 ′ width(h,V:#。#): 

10300 " var LINCNT at ($ef88) ,LINWDT at ($ef89): 
( 


10310 " 

10320 " if not h thenielse h:=LINwDT: 

10330 " if not v thenielSe Vv:=LINCNTi 

10340 if (hs40 or hs80) and (v=25 or v=20) then 
10350 " inline 

10360 " $23 ,#.h。 /* 1d hl,(.h) */ 
10370 $45, /* 1d  b,1 %/ 
10380 " $4C。 /* 1d ch %/ 
10390 * $cd,#$6f6b:  /* Call 6f6b ※/ 
10400 " 

10410 "Screen(C,fi#。#)? 

10420 ' var HIRESL at ($e6a6) ,PORT31 at ($e6c2): 
10430 ' var PORT40 at ($e6c1 ): 

10440 ' ( 

10450 1f inc(c) 

10460 " thent 

10470 " if dec(c) 

10480 『 thent 

10490 " 1f dec(C) 

10500 " thent 

10510 " 1f dec(c) 

10520 " theni 

10530 elset HIRESL:=1:port[$31]:=PORT31 :=PORT31 and$eei} 
10540 } 

10550 elset HIRESL:=0:iport[$31]:=PORT31:=(PORT31 or$01)and$efi) 
10560 


} 
elset HIRESL:=0iport[$31]:=PORT31:=PORT31 or$11:) 


) 
if not f then 
{ 


if f and $01 


10620 then port〔$40] :=PORT40:=PORT40 or $10: 
10630 else port[$40]:=PORT40:=PORT40 and $efi 
10640 " if f amd $02 

10650 " then port[$31]:=PORT31:=PORT31 and $f7: 


else Port[$31]:=PORT31:=PORT31 or $08: 
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10670 " } 

10680 ' } 

10690 ' color(function_codei#, 社 ) 

10700 ′ var NULATR at ($e6b4) ,NULCHR at (.NULATR+1 ) 
10710 " var F_LTRL at (.NULATR+2) ,CMODE at ($e6b9): 
10720 ' ( 

10730 “ if CMODE 

10740 then NULATR:=(function_code<<5) or $08: 
10750 else NULATR:=function_code and $07: 
10760 ' } 

10770 ' C1S(ni#。#)・ 

10780 ′ ( 

10790 if n and $01 then inline $cd,#$5f0ei 
10800 " if n and $02 then 

10810 inline 

10820 $f3。 /* di ォ / 
10830 " $3a,#$e6cl, /x 1d  a,(PORT40)x/ 
10840 $f6,$10, /x oOY 10h %/ 
10850 『 $33,$40, /x Out (40h) 、a ※/ 
10860 " $3e,$5c, /%* 1d  a,5ch  ※/ 
10870 $4f 、 Z% Ip: ld  C,a ※/ 
10880 " $ed,$79, /※ Out (Cc)、a  */ 
10890 $01、#$3e7f、 /x 1d  bC、3e7fhx/ 
10900 $11,#$C001. /* 1d de,COOIhx/ 
10910 $21,#$c000、 /x ld hl,c000hx/ 
10920 " $36 ,$00, Z%* 1d (hl),0 / 
10930 $ed,$b0 , /* 1dir ※/ 
10940 " $3c、 /※ inC a メ / 
10950 $fe,$5f . /* cp 5fh ※/ 
10960 " $20 .$eb, /* Jr nzZilP  */ 
10970 $d3,$5f 、 /* Out (5fh) .a */ 
10980 “ $3a.#$e6cl、 /x 1d  a,(e6clh)*/ 
10990 $d3,$40、 /x out (40h).a X/ 
11000 $fb: /* ei メ / 
11010 ′ } 

11020 "1ocate(X,Y,Fi#,#): 

11030 ' var CSRY at ($ef86),CSRX at (.CSRY+1): 

11040 '" var LINCNT at (.CSRY+2) 、LINwDT at (.CSRY+3) : 
11050 ' var CURFG at ($e6a7 )・ 

11060 '" ( 

11070 if not Y then CSRY:=?2(LINCNT>Y:Y+1 、LINCNT ) 
11080 " if not X then CSRX:=?2(LINWDT>XiX+1.LINWDT ) : 
11090 " if not F then CURFG:=?2(Fi-1.0)* 

11100 '′ } 
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3-4 ライ ブラ の 分 い み 必 


[ 2 ) コン ソー ル 入 出力 ライ ブラ リ 
コン ソー ル (CRTT, キー ボー ド ) と の 入出 力 や プリ 
ンタ へ の 出力 の た め の 関 数 で す 。 
(i) print str (: < 文字 列 の 開始 アド レス >) 
…NUL コ ー ド (で ゼロ) で 終わ る 文字 列 を 出力 する 。 
(ii) print mum (< 下位 バイ ト >, < 上 位 バ イト >〉) 
す 号 な し の 2 バイ ト の 数 を 10 進 で 出力 する 。 
(ii) print hex (< 数 >) 
… 数 を 16 進 で 出力 する 。 
(Gv) print using (< 出力 する 桁 数 >,、 < 下位 バイ 
ト >, < く 上 位 バ イト >) 
す 号 つき の 2 バイ ト の 数 を 10 進 で 出力 する 。 指 
定 き され た 桁 数 で , 右 づ め 出 力 さ れる 。 
(v) print _ chr (< 数 >) 
… 数 を を の まま 文字 と し て 出力 する 。 
(vi) input _ str (< 文字 列 の 長 る > : < 変数 の 先頭 ア 
ドレ ス 2〉) 
… リ ター ン ・ キ ー が 押 き れる まで に 入力 し た 文字 
列 を < 変数 の 先頭 アド レス > か ら 6 代入 し , 文字 
列 の 最後 に NUL し コー ド を 入れ る 。 入力 し た 文 
字 列 が < 文字 列 の 長き > より も 長い と き は , 文 
字 列 の 長き ー 1 文字 分 ど だ け を 代入 する 。 入 力 き 
れ た 実際 の 文字 列 の 長き は 関数 の 値 と し て 返 きる 
れる 。 STOP キー が 入力 され だ た と き は , 代入 せ 
ず に キャ リー フラ グ を 立て て 戻る 。 
(vi) input num (<type> : < 変数 の アド レス >) 
… <type> が 1 の と き は , キー ボー ド か ら 入 力 き 
れ た 値 (10 進 数 ) を 1 バイ ト の 値 に 変換 し < 変 
数 の アド レス > に 代入 する 。 く <type> が 1 以外 の 
と き は , キー ボー ド か ら 人 入力 さ れ た 値 (符号 つ 
き の 10 進 数 ) を 符号 つき の 2 バイ ト の 値 に 変換 
し , < 変数 の アド レス > に 下位 バイ ト を , 次 の ア 
ドレ ス に 上 位 バ イト を 代入 する 。 STOP キー が 
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入力 され た 場合 に は 1 を , 入力 し た 値 が 指定 し 
た <type> と 一 致し な い 場 合 は 2 を 関数 の 値 と 
し て 返す 。 ど ちら の 場合 も キャ リー フラ グ が 立 
ち , 入力 が 正しく 行わ れ な か っ た こと を 示す 。 
(vi) input chr( ) 
… キ ー ボ ー ド か ら 入 力 さ れ た 文字 を 関数 の 値 と し 
て 返す (入力 待ち あり )。 
(ix) inkey ( ) 
… キ ー ボ ー ド か ら 入 力 さ れ た 文字 を 関数 の 値 と し 
て 返す (入力 待ち な し , 入力 が な いと き は ゼロ 
フラ グ が 立つ )。 
(x) crlf (< 回 数 >) 
… < 回 数 > だ け 復 改 を 出力 する 。 
(xi) lpt __ sw (< スイッチ >) 
… く ス イッ チッ > ニ = 0 な ら 6 出力 先 を CR 工 に する 。 
< スイ ッ チ >=ff 是 な ら 現 在 の 出力 先 を 関数 の 
値 ま も 宅 返 す (0: で 民生 。 仁 本 3 贅 PT)。 
< く ス イッチ > ニテ その 他 な ら 出 力 先 を LP 工 に す 
る 。 
(xi) sense ( ) 
… キ ー 入 力 に 応じ た 働き を する 。 
^S : 一 時 停止 。 
^O さ GRT で 出力 も な めい 。 
^C : 実行 停止 。 


9- す 


@ リ スト 3-2 コン ソー ル 入 出力 ライ ブラリ 


"/*1/0 console 
2 ・Print_str 
2.print_num 
.Print_hex 
・Print_uSjing 
・Print_chr 
・input_str 
・1nPut_mum 
・input_chr 
・inkey 
10.crlf 
11.1pt_sw 
12.sense 


written by K.ISizuka 
09/05/84 


′ Var PRTFLG at($e64C): 
・ data _lpt:00: 
′ Print_str(leniiX,#): 

( 


Print_num(nuW 1,mUum_ hi 人 ): 
1( 


PRTFLG:=_lpti 
inline 
$2a4,#.nUm 1。 /* 1d hl,(.num 1) 
$cd,#$28c2:  /* Call 28c2h  */ 
PRTFLG:=0: 
} 
Print_hex(numi 拉 。 拉 )? 
data _lbl_: 
$c6,$30, 30h 
fe 電 
$38 ,$02, C,02 
$c6,$07, 07h 
$df, 18h 
$c9: 


PRTFLG:=_lpti 
Inline 
$3a ,#.nUm。 a,( .nUm)X/ 
fOh 


・-1b1_ 
3。( .nUmW)※/ 
md 0fh ※/ 
$cd,#. 1b1_ : /x Call . 1bl_ ※/ 
PRTFLG: =0: 


} 
print_using(1en,1ow_num,high_nUmi#,#)? 
{ 


PRTFLG:=_lpt: 


ライ ブラ の 旋 い みた 
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20670 
20680 
20690 
20700 
20710 
20720 
20730 
20740 
20750 
20760 
20770 
20780 
20790 
20800 
20810 
20820 
20830 
20840 
20850 
20860 
20870 
20880 


20900 
20910 
20920 


20960 
20970 


20990 
21000 


21020 
21030 
21040 
21050 
21060 
21070 
21080 
21090 
21100 
21110 
21120 
21130 
21140 
21150 


21170 
21180 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 
21280 
21290 
21300 
21310 
21320 
21330 
21340 
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20890 『" 


20930 『 
20940 
20950 


20980 


21010 


21160 


inline 


$23,#、10w_num、/* 1d hl,(.lOow_ num)  ※/ 


$cd,$fd、$21 。 
$3a.#.1en。 
$47. 
$3e,$80 , 
$0e,$00, 
$cd,$d1,$28 。 
$cd ,#$5550: 
PRTFLG:=0: 
} 
Print_chT(chTi###) 5 
を 


PRTFLG:=_lpt: 
inline 
$3a 、#.Chr 。 
$dfi 
PRTFLG:=0i 
ま 
input_str(leniix,#): 
{ 
inline 
$c5、 
$cd,#$5fC8、 
$38 .$19, 
$3a、#.1en. 
$47., 
$0e.$00, 
$05, 
$dd,$e5, 
$dl, 
$eb。 
$13, 
$1a. 
$77。 
$b7. 
$79, 
$28,$07, 
$23, 
$0c。 
$10,$f5。 
$36,$00, 
$79, 
$c1li: 
} 
input_num(tyPe:1X,#): 
data _lbl_: 
$cd,#$5fC8。 
$3e,$01, 


$ 
$cd,#$26bC, 


$3e,$02, 
$f0, 

$2a .#$eC41 。 
$3a,#.tyPe, 
$dd,$75,00, 
$3d, 
$28,$05, 
$dd,$74,01, 
$af , 

$c9, 

$7c, 

$b7, 

$c8, 
$3e,$02, 
$37, 


/* Call 21fdh 


※/ 


/* ld  a,(.]1en)※/ 


/* ld  b,a 
/* 1d  a,80h 
/x 1d CcC,00 


/* call 28dlh 
/* Call1 5550h 


/* 1d a,( .Chr ) */ 


/* rsSt 18h 


/* PUSh bc 
/* Cal] 5Sfc8h 
/* JF Cl1b1 


※/ 
※/ 
\/ 
※/ 
※/ 


※/ 


※/ 
\/ 
※/ 


/* 1d  a,(.len)x/ 


/* 1d ba ※/ 
/* 1d  C,00 \/ 
/* dec b ※/ 
/X PUSh iX メ / 
/※ POP de ※/ 
/* eX de,hl  X/ 
/%lp:inc de ※/ 
/* 1d  a,(de) / 
/Z* 1d (hl).a */ 
/% OF a ※/ 
/%* 1d  a,C ※/ 
/% JT  Z,lb]1  / 
/* imc hl ※/ 
/* inC C ※/ 
/% djJnZ .Jp メ / 
/%* 1d (hl1),.0 ※/ 
/* 1d aiC ※/ 
/xlbl:pop bc ※/ 
/* Call1 5fc8h  */ 
/* 1d  a,OIh  ※/ 
/% Tet C ※/ 
/* inc hl ※/ 
/* Call 26bch  ※/ 
/X rst 30h %/ 
/* ld  a,02h  / 
/% ret p ※/ 
/x ld hl,(ec41h) ※/ 
/* 1d  a,(.tyPe) ※/ 
/x 1d (1X)。1 #/ 
/* deC a メ / 
/* JT  Z11 メ / 
/* 1d (ixt1),hw/ 
/% XOT a メ / 
/% ret \/ 
/*11:ld ah メ / 
Z% OTY a %/ 
/% Tet Z ※/ 
/x* 1d  a,02 %/ 
/* SCf メ / 


3-4 ライ ブラ ク の 大 い みた 


" $c9i /w ret き / 
21360 ′ ( 
21370 " inline $cd,#._1b1_: /X Call . 1b1l_ ※/ 
21380 ′ } 
21390 ' input_chr(i 拉 ,#): 
21400 ' ( 
21410 『" inline 
21420 『 $cd,#$3583: /\ Call 3583h  */ 
21430 『 } 
21440 ' jnkey(:i,#) 5 
21450 『 { 
21460 inline 
21470 $cd,#$35ce:  /x Call 35ceh  ※/ 
21480 ′ )} 
21490 ' Crlf(numi#,)? 
21500 '′ var j at(_work+30 ) : 
21510 " conS CR:=13.LF:=10: 
21520 " { 
21530 for ji:=1 to num (print_chr(CR)iprint_chr(LF)i) 
21540 “ } 
21550 ′ 1pt_Sw(Swi 拉 。 共 ) ゝ 
21560 ' var LPTFLG at(._lpt): 
21570 * { 
21580 if not(Sw) 
21590 then LPTFLG:=?(Swi-1.0): 
21600 『 else LPTFLG: 
21610 } 
21620 ' senSe(i 拉 。 福 ): 
21630 " var a at(_work+30 ) ,CNTOFL at($e652 ) 
21640 『 { 
21650 if zero(a:=inkey( ) ) then returni 


21660 " if as$f then { 


21670 print_chr('^)iprint_chr('0'):crIf(1): 

21680 CNTOFL:=not CNTOFL: 

21690 print_chr('"^"):print_chr('"0'):crlf(1): 

21700 “ } 

2 が 10)" if as$3 then (print_chr(7):Stopi}) 

21720 " if as$13 then (if input_chr()=$03 thentprint_chr(7)iStopi)} 
21730 ′ } 
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[ 3 〕 算術 ライ ブラ リ 
算術 ライ ブラリ に は 決 の 13 個 の 関数 が あり ます 。 


) 


( 呈 ) 


( 損 ) 


(iv) 


(Y) 


( ヾ ) 


(vii) 


( 滞 ) 


(ix) 


(x ) 


(xi ) 


( xi ) 


add_ w(a 1, a _ h,b 1, b hi< ア 
ドレ ス >〉) 
… ワ ー ド 長 の 加算 。 
SMD 。 WaA_ 1。 % 狼 。 6 1。、 RS< デ 
ド レス >) 
… ワ ー ド 長 の 減算 。 
mul (a, b) 
… バ イト 長 の 乗算 。 結 果 は 4 *b の 下位 バイ ト 。 
mulov ( ) 
…mul 関数 の 乗算 結果 の 上 位 バ イト の 取り 出し 。 
mul  w(a _ 1, a hb 1, b hi< ア 
ドレ ス >〉) 
… ワ ー ド 長 の 乗算 。 
mulov _ W (: < アド レス >) 
…mul  w 関 数 の 乗算 結果 の 上 位 バ イト の 取り 
出し 。 
div (a, b) 
… バ イト 長 の 除算 。 結 果 は ab の 値 。 
mod ( ) 
・ di Y 関 数 の 除算 の 余り を 取り 出す 。 
dy _ WOC2 1。& hb 1。b_ DS ダ 
ドレ ス >) 
… ワ ー ド 長 の 除算 。 
mod  Ww (: < アド レス >〉) 
…diV_ w 関 数 の 除算 の 余り を 取り 出す 。 
array (X,。 y : < アド レス >) 
… 2 次 元 配列 の 配列 要素 の アド レス を 求め る 。 
2NTay (X。 ツ 。 ら と ょ アデ ドレ スネ ス 2 
… 3 次 元 配 列 の 配列 要素 の アド レス を 求め る 。 
load _ array (X, y : < アド レス >) 
… 2 次 元 配 列 の 配列 要素 の 参照 。 


3-4 ライ ブラ ク の 読 い みか だ 


load _ array (X, Y, 2 : く < ア ドレ ス >) 
… 3 次 元 配列 の 配列 要素 の 参照 。 
( 台 ) store array (3, X, Y : < アド レス 〉) 
… 2 次 元 配 列 の 配列 要素 へ a の 値 を 代入 。 
Store array(a,。 X,。 yY。 ZZ : く ア ドレ ス >) 


… 3 次 元 配列 の 配列 要素 へ a の 値 を 代入 。 


この うち add _ w, sub_ w, mul _w,diVv _ w は 
2 パラ メー タ の 渡し か た が 同じ で す 。 つ まり 4_ 1 と a 
h, b_ 1 と b _h を それ ぞ れ 一 つの 2 バイ ト の 数 (_ 
1 が 下位 , _h が 上 位 ) と 見 な し , 符号 な し 2 進 整数 と 
し て 計算 し て 結果 の 下位 バイ ト を < アド レス > へ , 上 位 
バイ ト を < く アド レス > 十 1 へ 代入 し ます 。 こ の と き , add 
_ W, Sub _W は 計算 結果 に 桁 上 が りや 桁 下 が り (ボロ 
ー) が 発生 し て いれ ば キャ リー フラ グ を 立て ます 。 

mul w の 計算 結果 は 一 般 的 に 4 バイ ト 長 に な り ま 
す が , この 関数 で は 下位 2 バイ ト だ け を 結果 と し て 返し 
ます 。 残る 上 位 2 バ イト は mulov_w を 呼べ ば 求め 6 
れ ま す 。 求め た 値 の 下位 バイ ト は < アド レス > へ , 上 位 
ズバ イト は < アド レス > 十 1 へ 代入 し ます 。div_ w で 発生 
し た 余り を mod _ w で 求め る こと が で きま す 。 求め た 
余り の 下位 バイ ト は < アド レス > へ , 上 位 バ イト は <〈 ア 
ド レス > 十 1 へ 代入 し ます 。 

mul, div は 1 バイ ト 長 の 計算 (符号 な し 2 進 定数 ) で 
パラ メー タ の 渡し か た は 同じ で す 。 計算 結果 は 関数 の 値 
と し て 返さ れ ま す 。mulov は mul の 計算 結果 の 上 位 バ イ 
ト を 求め る も の で , これ も 結果 は 関数 の 値 と し て 返さ れ 
ます 。 mod は div の 除算 で 発生 し た 余り を 求め る も の 
で , 結果 は 関数 の 値 と し て 返さ れ ま す 。 

array, load array, store _ array は , Stellar で サ 
ポー ト し て いな い 2 次 元 , 3 次 元 の 配列 を 扱う た め の 関 
数 で す 。 2 次 元 , 3 次 元 の 配列 は 次 の よう に 宣言 し な け 
れ ば な り ま せん 。 
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食 2 炊 元 配列 の 宣言 

data < 配列 名 > : < ワー ク の 先頭 アド レス >, < の 長 
き >, <Y の 長き る >。 1 : 
念 3 次 元 配列 の 宣言 

data < 配列 名 > : < ワー ク の 先頭 アド レス >, <〈x の 長 
きる >,。 く <Y の 長き る >, < く Z の 長 る > : 

ここ で < ワー ク > と は , 配列 要素 を 記憶 する た め の 領 
域 で 、 大 き さ る は <x の 長き る > * <Y の 長き > * <2 の 長 
る > 以上 で な けれ ば な り ま せん 。 

array は x,Y あ る い は x, y,Z で 示さ れ た 配列 要素 
(< 配列 名 > [x, y] や < 配列 名 > [x, Y, Z]) の ア 
ドレ ス を 求め る 関数 で , 結果 の アド レス は イン デック ス ・ 
レジ スタ 1 又 に 設定 され て きま す 。 

load _ array は 配列 要素 (同上 ) を 参照 する 関数 で , 
参照 し た 値 を 関数 値 と し て 返し ます 。 

store _ array は 配列 要素 (同上 ) へ a の 値 を 代入 する 
関数 で す 。 


3-4 ライ ブラ リ の 半 い みた 


@ リ スト 3-3 算術 ライ プラ リ 


30000 '/x arithmetic テ / 

30010 '/* 1.add_w ※/ 

30020 '/* 2.Sub_w X/ 

30030 '/* 3.mul メ / 

30040 '/* 4.mulov %/ 

30050 '/x 5.mul_w ※/ 

30060 '/x 6.mulov_w ※/ 

30070 '/\ 7.diV %/ 

30080 '/※ 8.mod \/ 

30090 '/% 9.diVv_w ※/ 

30100 '/% 10.mod_w ※/ 

30110 '/x 11.array / 

30120 '/x 12.1oad_array ※/ 

30130 '/x 13.Store_array  */ 

30140 '/x ※/ 

30150 '/* written by K.Isizuka ※/ 

30160 '/* 09/05/84 ※/ 

30170 '/* メ / 

30180 

30190 "add_w(a_1,a_h,b_1、b_hiix,#): 

30200 '′ ( 

30210 『 inline 

30220 " $2a,#.a_1。 /* 1d hl,(.a_1) ※/ 
30230 " $ed,$5b,#.b_1, /x 1d de,(.b_1) ※/ 
30240 " $19, /* add hl,de ※/ 
30250 " $dd,$75,$00, /* 1d (ixX),1 ※/ 
30260 * $dd,$74,$01: /* 1d (ixt1)。h ※/ 
30270 ' } 

30280 "Sub_w(a_l,a_h,b_1,b_hiiX,#): 

30290 ' ( 

30300 inline 

30310 * $24,#.a_1。 Z* 1d hl,(.a_1) ※/ 
30320 " $ed,$5b,#.b 1, /x 1d de,(.b_1) ※/ 
30330 * $b7 , /% OY a ※/ 
30340 " $ed ,$52, /* sbc hl,de ※/ 
30350 $dd,$75,$00 。 /* 1d (ix),1 ※/ 
30360 " $dd,$74,$01: /* 1d (ixt1).。h ※/ 
30370 ′ } 


30380 "data _mul:00,_mul_w:00.00: 
30390 "mul(a,bi#,#)? 
30400 ' Var mul_m at(_code+6): 

1( 


30410 

30420 " inline 

30430 " $21 ,#.b, /* ld hl,.b ※/ 
30440 " $3a,#.a。 /X 1d  a,(.3) き / 
30450 " $Cd ,#.mU1_m /% Call mul_m 4 
30460 $af 。 /% XOT a メ / 
30470 『 $94。 /* Sub h ※/ 
30480 『* $7c, /\ 1d ah ※/ 
30490 “ $32 ,#。_mUul 。 /* 1d (._mul),a ※/ 
30500 $7di /* 1d  a,1 ※/ 
30510 '′ } 

30520 "mWU1OV(i#,#)? 

30530 ' ( 

30540 * _mUuli 

30550 '′ } 

30560 "mul_w(a_l。a_h,b_l,b_hiiX,#): 

30570 ' て 

30580 " inline 

30590 $c5, /x PuSh bc \/ 
30600 “ $21 ,#0000。 /* 1d hl,0000 ※/ 
30610 $ed,$4b,#.a_1, /*x 1d  bC,(.a_1) %/ 
30620 『 $ed,$5b,#.b 1, /* 1d de,(.b_1) ※/ 
30630 " $3e,$10, 7x 1d  a,10h ※/ 
30640 " $29。 /* add hl,hl :1p き / 
30650 $cb,$11 , /% Tl Cc 4 
30660 " $cb,$10, /% TL b ※/ 
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nC,S1 

hl ,de 

nC,S1 

bc 

a 

nz,lp 
$ed ,$43,#。 mul_w (._mul_w),bc 
$dd,$75,$00, (ix) 1 
$dd,$74,$01, (ix+1)。h 

b 

ai0 

8 で 

bc 


" 陣 U1OV_w( ii1X。): 
電 


@tix,1]:=_mul_w[1]: 
@[ix]:=_ mul_wi 
次 
*data _mod:00,_mod_w:00,00: 
*diV(a,bi 葵 共 ) 5 
′ Var rem mm at(_codet+$12): 
{ 
inline 
$3a、#.。 
$21 ,#.b。 
$Cd ,#.TE_ 硬 
$32,#._mmOd, 
$b7, 
$7b: 


) 
WOd(: 持 。#): 
{ 


modi 


} 
*diV_w(a_1.a_h。b_1,b_hi:1X,#): 
s 半 ) 


inline 
$2a,#.a_1。 /※ hl ,(.a_1) 
$ed,$4b,#.b_ 1, /※ bc,(.b_1) 
$11,#0000, de,0000 


$dd,$75,00, 

$dd,$74,01, (ix+1).h 

$ed ,$53,#、_mOd_w,/* 1d  (._mod_w),de 
$7b, /* 1d  a,e 

$b2: /* Or d 


} 
jOd_w(i1X,#): 
{ 


@[lx,1]:=_mod_w[1]i 
@[ix]:=_mOd_wi 
} 
arTay(X。y,Zi 共 1X。 拉 )? 
Var adr_l,adr_hi 


{ 
1f @[ix,4]-1 
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thent 


3-4 ライ ブラ タリ の 使い み 


adr_1:=mmJ1(Z,@[1X,。3])iadr_h:=muloV( ) 


inline 
$24,#.adr_1。 


$22,#.adT_1i 


hl,(.adr_1) 
a,(.Y) 

ea 

d,00 

hl ,de 
hl,(.adr_1) 


mul_w(adr_l,adr_h,@Lix,21,0j.adr_1)i 
y 
elsetadr_1:=mul(y,@[1X,2])iadr_h:=mulov( )i) 


inline 
$24,#.adT_1。 
$dd,$5e,00, 
$dd,$56.01, 


} 
"1oad_array(X,Y,Zi1X。#): 
3 


* array(X。Y,Zi1X): 
@[ix]: 

肖 
"Store_array(a,X,。y,Zi1X。#) 


array(X。Y,Z:1X): 
@[1x]:=ai 
) 


hl,(.adr_1) 
e, (jiX) 

d, (ix+1) 
hl,de 
a。(。X) 
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[ 4 ) ファ イル 入出 力 ラ イブ ラリ 
これ は ディ スク 入出 力 の た め の ラ イブ ラリ で , 次 の 六 
つの 関数 を 持っ て 1 ま すい 


( ュ ) 


open (<filenum>, <mode> : < ファ イル 名 を 示す 


文字 列 の 先頭 アド レス >〉) 


( 品 ) 


( 損 ) 


(iv) 


(Y) 


(Vi) 


…BASIC の OPEN 文 上 同じ 動作 を し ます 。 


<filenum> は 0 一 2, <mode> は 0 : input, 
1 : output,。 2 : append を 示し て いま す 。 
< ファ イル 名 を 示す 文字 列 > は 二 重 引用 符 (?) 
で 始ま り . NUL し コー ド ま た は 二 重 引用 符 で 終 
わる よう に し ます 。 この open 関数 で は ラン ダ 
ム ・ ア クセ ス は サポ ー ト し て いま せん 。 

close (<filenum>) 


…BASIC の CLOSE 文 と 同じ で ファ イル を クロ 


ー ズ す る も の で す 。 
output (<filenum>, <chr>) 


… <filenum> で 指定 し た ファ イル へ <chr> を 1 


文字 出力 し ます 。 
input (<filenum>) 


… <filenum> で 指定 し た ファ イル か ら 1 文字 入力 


も ます 。 
eof (<filenumy>) 

… <filenum> で 指定 し た ファ イル が 終わ り に 達し 
た か どう か 調べ ます 。 終 わり なら ffH を , そう 
で な けれ ば 0 を 返し ます 。 

varptr (<filenum>, <fcbnum>) 

… <filenum> で 指定 し た ファ イル の ファ イル コン 
トロ ー ル ・ ブ ロッ ク の <fcbnum> バイ ト 目 の 値 
を 返し ます 。 


3-4 ライ ブラ クリ の 読 いみ 火 * 


人 @ リ スト 3-4 ファ イル 入出 力 ラ イブ ラリ 


60000 '/\※-----ー ニ ーー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニー ニーー 
60010 '* written by H.Ohkuma 

60020 '* 

60030 '* 09/05/84 

60040 ′ \== ニ ニニ ーー ニー ニー ニニ ーー ニー ニー ニー ニー ニニ ニー ニー ニー ニーーー ニ ーーー ニニ ーーー 
60050 ' */ 

60060 '/* openfile 

60070 ' 

60080 ' filenum[0..2] 

60090 '* inout,in=0 out=1 

60100 '* FileName 

60110 ' */ 


60120 "open(filenum、inoutiix /xFileNamex/,#) : 
60130 '( 
60140 ' if 2<inout then stopi 


60150 else inout:=?(inout<2i inmc(inout ),8)i 
60160 ' jinline 

60170 『 $c5 。 /\ PuSh bcC ※/ 

60180 $dd,$e5, /%\ PUSh 1iX ※/ 

60190 $e1 , /% POP hl %/ 

60200 " $cd,#$468C。 /* Call 468ch */ 
60210 " $3a,#. inout /* 1d a, (inout )x/ 
60220 " $5f 。 /* 1d 6,3 ※/ 

60230 $3a,#.filenum,、 /* 1d a,(fi1enum) メ / 
60240 $cd,#$47f 6 /* Call 47f6h X/ 
60250 $21 ,#$0000, /* 1d hl.0 */ 
60260 " $22 ,#$eC88 , /* 1d (0ec88h) ,hl ※/ 
60270 " $c1 : /※ POP bC ※/ 
60280 '} 

60290 "/* closefile 

60300 '※ 

60310 '#\ filenum0..2] 

60320 '*/ 

60330 "cloSe(filenumi#。#): 

60340 '{ 

60350 '′ inline 

60360 『 1 /%* PuSh bC ※/ 

60370 " $3a,#.filenum,。 /x 1d  a,(filenum) X/ 
60380 " $cd,#$481d, /x Call1 481dh x/ 
60390 " $21,#$0000, /* 1d hl,0O */ 
60400 " $22,#$ec88, /* 1d (0Oec88h),hl */ 
60410 " $c1i /* POP bC %/ 

60420 '} 

60430 "/x* output sequential data 

60440 '※ 

60450 ' ※ filenum[0..2] 

60460 ' ※ a: output chracter 

60470 ' */ 

60480 'output(filenum,ai 若 。 昔 ): 

60490 '( 

60500 ' inline 

60510 " $c5, /X PuSh bc %/ 
60520 " $3a,#.filenum。 /* 1d  a,(filenum) ※/ 
60530 " $cd,#$4735, /x Call 4735h x/ 

60540 $38 ,#. 3。 /* 1d  a,(a) ※/ 
60550 『 $cd ,# 多 4b54 /* Cal1 4b54h x/ 
60560 『 $21 ,#$0000, /* 1d hl,。0 ※/ 
60570 『 $22 ,#$eC88 /* 1d (0ec88h) ,hl x/ 
60580 『" $c1: /* Pop bc メ / 
60590 *'} 

60600 '/x inmput sequential data 

60610 ' 

60620 '* filenum[0..21 

60630 ' */ 

60640 'input(filenumi##): 

60650 '( 


60660 ' inline 
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$c5,。 /* puSh bc ※/ 
$3a,#.filenum。 /x 1d  a,(filemum) */ 
$cd ,#$4735 。 cal11 4735h */ 
$cd ,#$4b7b,。 cal1 4b7bh */ 
$21,#$0000, 1d hl,0 ※/ 
$22,#$ec88 1d  (Oec88h),hl x/ 
$cl: Pop bc ※/ 


filenum[0..2] 


*eOf (fi1enUmW: 苦 。 菩 ): 
培い 


inline 

D Push bc \/ 
$3a ,#.f11enUm。 a,(f1ilenum) 
$6f , 1.a ※/ 
$26,$00, h,0 ※/ 
$cd,#$21fd, 21fdh  / 
$3a,#$eC7d,。 a,(ec7dh) */ 
$b7, a ※/ 
$28,$05, ZnodiSKx/ 
$*cd ,#$a685。 a685h  */ 
$18,$03. Skip ※/ 
$cd ,#$4C51 。 /xnodiSK:Cal1 4C51h */ 
$3a ,#$ec41 。 /%SKip:1d a,(ec41h) */ 
$c1i /*POP bc %/ 


Varptr(#m) 


filenum0..2] 


9 必 
*Varptr(filenumm.fCbnUm: 谷 。 苦 )・ 
*( 


inline 

ゃ \/ 
$3a,#.f11enum。 a,(filenum) */ 

$cd,#$46f8。 46f8h %/ 
$3a,#.fCbnUm。 a,(fcbnum) ※/ 

e,a %/ 

d,0 \/ 

hl,de ※/ 

a,(hl ) */ 

※/ 
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3-4 ライ ブラ の 説い みた だ 


〔 5 〕 物理 ディ スク 入出 カラ イブ ラリ 
ディ スク か ら の 直接 読み 出し や 書き 込み を する 関数 の 
ライ ブラ リ で す 。 
(i) dski (<drive>, <track>, <surface>, <top 
sector>, <# of sector> : <buffer address>) 
(ii) dsko ( 同上 ) 
…dski は 読み 出し , dsko は 書き 込み を する 関数 
で す 。<drive> は ドラ イブ 番号 , <track> は トラ 
ッ ク 番 号 , <surface> は ヘッ ド 番 号 で , <top 
sector> は 読み 出し ある い は 書き 込む 初め の セ 
クタ 番号 , <# of sector> は 読み 出し や 書き 込む 
セク タ 数 , <buffer address> は 読み 出し た デー 
タ を 記憶 する バッ ファ , また は 書き 込む サゲ データ 
を 記憶 し て いる 領域 の アド レス で す 。 


る リス ト 3-5 物理 ディ スク 入出 力 ラ イプ ラリ 


written by H.Ohkuma 
09/05/84 


: diSk input 


: drive number 

: track number 

: surface 0!1 

: sector number 

:・ number Of SeCtor 

: top addresS of read buffer 


*dSKi (dr,tT,SUT,SeC,NoOfSeci 1X,#): 

*Var DriveNo at ($ec85) 
DriveType at ($ef5d) 、 
ErrorCount at ($ecb4): 


inline 
/* puSh bc 
$af 。 /\ XOT a 
$32,#.ErrorCount,/x 1d (EC),a 
$3a,#.dT 。 /* 1d  a,(dr) 
/* dec a 


$3d, 
$32,#.DriveNO, /X 1d  (DN),a 
$cd,#$3dcb,。 /x call 3dcbh 
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64300 $32,#.DriveType,/* 1d  (DT),a ※/ 


64310 $24,#.tF、 /* 1d hl,(tr) */ 
64320 " $7d, /* 1d  a,1 ※/ 
64330 " $87 /%X add a.a テ / 
64340 " $84, /* add ah ※/ 
64350 " $47、 /* 1d ba ※/ 
64360 $24,#.SeC, /* 1d hl,(Sec)*/ 
64370 $4d, /* 1d ci1 ※/ 
64380 $7cC。 /* 1d aih メ / 
64390 " $dd,$e5, /\ PUSh jX ※/ 
64400 " $dl, /* POP de \/ 
64410 $b7, /% OT  a ※/ 
64420 " $cd ,#$369d , /x call 369dh  */ 
64430 " $c1li /\ POP bc ※/ 
64440 " 

64450 ' 1if carry() then Stopi 

64460 '} 

64470 '/* 

64480 '# dSko : diSk output 

64490 '※ 

64500 ' dr : drive number 

64510 '# tr : track number 

64520 ' sur : surface 0I1 

64530 ' Sec : Sector number 

64540 '* NoOfSec : number of sector 

64550 ' ix : top address of write buffer 
64560 ' 

64570 ' w/ 


64580 'dsko(dr,tT,SuY ,SeC,No0fSeci 1X,#): 
64590 'var DriveNo at ($ec85) , 
64600 " DriveType at ($ef5d) 


64610 ErrorCount at ($ecb4): 

64620 '( 

64630 ' inline 

64640 " 1 /w PuSh bc ポ / 
64650 " $af 。 /w XOT a ※/ 
64660 $32 ,#、ErrOrCount、/x 1d (EC)、a %/ 
64670 " $3a,#.dT。 /* 1d  a,(dr) */ 
64680 $3d, /w dec a ※/ 
64690 $32,#.DrIVeNO, /* 1d  (DN),a */ 
64700 $cd ,#$3dcb、 /w call 3dcbh  #/ 
64710 " $32 ,#.DriveType,/* 1d  (DT),a / 
64720 『 $23,#.tr, /X 1d hl1,(tr) x/ 
64730 " $7d, /* 1d  a、1 %/ 
64740 " $87、 /* add a,a ※/ 
64750 $84, /* add ah メ / 
64760 $47, /% 1d ba %/ 
64770 『 $23,#.SeC。 /* 1d hl、(SeC)x/ 
64780 " $4d。 /%X 1d  C.1 \/ 
64790 $7c, 7 1d ah \/ 
64800 " $dd,$e5、 /* PUSh jix ※/ 
64810 $d1, /% POP de %/ 
64820 $37, /w SCf %/ 
64830 " $cd ,#$369d, /* Call 369dh  / 
64840 $cl: /* POoP bc %/ 
64850 " 

64860 ′ If carry() then stopi 

64870 ') 
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プー- ク サン ジウ ル ・ ブ ログ ラム 


PC-8801 バ パー ジョ ン の Stellar の サン プル ・ ブ プロ グラ 
ム と し て , ファ イル ・ ダ ング , ファ イル ・ タ イグ, Stellar 
プロ グラ ム の 圧縮 , を し て ゲー ム の 四 つ の プロ グラ ム を 
示し ます 。 


[1 ) ファ イル ・ ダ ンプ (リス ト 3-5 ) 


ファ イル の 内 容 を 16 進 数 と 文字 で 表示 し ます 。 こ の プ 
ログ ラム は 5 イン チ 2D の ディ スク で し か 使え ませ ん 。 


@ リ スト 3-6 ファ イル ・ ダ ンプ 


。 う 


※※ 玉 束 玉 素 玉 来 玉 玉 素 


File Dump 


this program iS for PC-8801/mkKII 
& 5 inch 2D drive 


written by H.Ohkuma 
09/05/84 


3 


* ※/ 
"PrO9 dumP( ): 

*data firstmsg:"input file name = “0, 
drive:"Drive: "0。 

track: "Track: "0, 


Surface: "Surface:"。0。 
sector: "Sectori"。0: 


*Var Str[20], 

addreSS[2], 

chrbuf [16]。 

X at ($ef87),Y at ($ef86) , 
2 1.dT,Cl1,SeCi 


の 
ST TS 
Print_str(i.firStmSg): 
input_str(20:.Sstrt1): if carry() then stopi 
open(1、ini.Str)i 
address:=address[1]:=0: 
while not eof(l) ( 

if address=0 then て 


399 


chrbuf:=input(1)1 if eof(1) then { close(1)j: stopi } 


dr:=varptr(1,4)+1jCl:=varptr(1,2)j 
Sec:=Varptr(1,3)icr1f(1): 
print_str(i.drive)iprint_chr(dr+$30 ) :space(1): 
print_str(i.track)iprint_hex(cl1/4):Space(1): 
print_str(i.Surface)iprint_hex((c1%4)/2):Space(1 ): 
print_str(i.Sector)iprint_hex(Sec)icrlf(1): 


inp_data(1): 
}) else { inp_data(0): } 


print_hex(addresS[1]):print_hex(addreSS ) 
SPace( 1): 
for i:=O to 15 { 
print_hex(chrbuf[i])i 
SpPace(1)i 
inline $cd, 欠 5a86: 
} 
SPaCe(3): 
for i:=0 to 15 ( 
Poke_vraW(X+i,Y,chrbuf[i]): 
} 
Cr1f(1): 
address:=address+16:iaddressS[1]:=addresS[1] plus 0: 


} 

close(1): 
"inp_data(ai#,#) 5 
人 


′ for i:sa to 15 ( 

こ chrbuf[i]:=input(1): 
。 肖 

2) 
"POKe_VTamW(X,Y。Ci 持 。 蘭 )5 
* 


inline 


/* Call 42 

/%* 1d  a,(C) 
* H /% 1d (hl),a 
M。 

*SPaCe(nUmi 補 。 共 ): 

*VaT li 

二 

*′ if num=0 then returni 

′ for ji:=l tonum ( 

print_chr(""): 


II/0 Console 
基 / 

・ Var PRTFLG at($e64c): 
data _lpt:00: 
Print_str(leni ilX,#): 

6 


PRTFLG:=_lpti 


/\ PuSh jiX %/ 
/X POP hl ※/ 
/*11:1d  a,(hl1) ※/ 
/* Or a \/ 
/% JP  Z,$+6  %/ 


3-5 サン ツル ブログ "ラム 


$df . 
$23. 
$18.$f8: 
PRTFLG:=0・ 
} 
′ Print_hex(nUum:#.#)・ 
2 
PRTFLG:=_lpt: 
inline 
$3a 、#.nUm。 a、( .nUm)%/ 
$e6,$f0. fOh ※/ 
※/ 
\/ 
%/ 
/ 
・_-1b1_ %/ 
8,( .nUW)%/ 
Ofh ※/ 
・1bl ※/ 


_1b1_: 
30h 
C,02 
07h 
18h 


) 
Print_chr(chri#。#): 
( 


a。( .Chr )*/ 
18h ※/ 


bc \/ 
5fc8h  #/ 
C,._1bl1_/ 
a。(.1en)x/ 


/*lPiinc de 
1d  a,(de) 
1d (hl),a 
OY 上! 
1d aic 
JP ZZ._ 
inc hl 
inc Cc 
djnz .1p 
1d (hl),.0 
1d ac 

_1b1_: 
pop bc 
CT1f (Ui 半 ,) 
Var 1 at(_work+10): 
cons CR:=13,LF:=10i 
{ 
PRTFLG:=_lpt: 
for i:=1 to num (print_chr(CR)iprint_chr(LF):) 


401 


PRTFLG: =0i 


} 
1pt_Sw(Swi#,#): 
Var LPTFLG at(._lpt): 


D 
* 
* 
* 
D 
D 
0 


1f not(Sw) 
then LPTFLG:=Swi 
else LPTFLGi 

2820 } 
2830 "/x open file 
2840 ' 
2850 ' filenum[0..2] 
2860 '* inout、.in=0 out=1 
2870 ' FileName 
2880 ' */ 
2890 "open(filenum,inOut:iX /XFileNamme%/ 、 蘭 ): 
2900 '( 
2910 ′ if 2<inout then StOP: 
2920 “ else inout:=?2(inout<2i inc(inout ) 8 ) : 
2930 ′ inline 
2940 「『 $c5, /* PuSh DC ※/ 
2950 『 $dd、$e5, /* PUSh jiX ※/ 
2960 $el, /% POP hl x/ 
2970 『" $cd,#$468C。 /* Call 468ch */ 
2980 『" $3a,#. inout 。 /* 1d a,( inout ) ※/ 
2990 " $5f 、 /\ 1d 6、3 ※/ 
3000 $3a,#.filenum。 /* 1d a,(f ilenum)*/ 
3010 『 $cd,#$47f 6 。/% Cal1 47f6h */ 
3020 「『 $21 、#$0000, /* 1d hl,0 */ 
3030 $22,#$ec88, /* 1d (0ec88h) ,hl */ 
3040 $cli /* POP bc */ 
3050 ') 
3060 '/* closetfile 
3070 ' 
3080 '* filenum[0..2] 
3090 ' x/ 
3100 'close(filenumi#,#): 
3110 '( 
3120 ′ inline 
3130 『* $c5。 /* PuSh bC ※/ 
3140 $3a,##.filenum。 /* 1d  a,(filenum) ※/ 
3150 『* $cd,#$481d。 /* Call 481dh */ 
3160 $21,#$0000, /* 1d hl,0 ※/ 
3170 『 $22 ,#$eC88 , /* 1d  (Oec88h) ,hl */ 
3180 $cli /※ POP DC ※/ 
3190 ') 
3200 '/x output sequential data 
3210 ' 
3220 ' ※ filenum[0..21 
3230 ' a: output chracter 
3240 ' X/ 
3250 'output(filenum,ai#, 蘭 ): 
3260 『'( 
3270 '′ inline 
3280 " $c5, /* puSh bc %/ 
3290 " $3a,##.filenum。 /x 1d  a,(filenum) ※/ 
3300 『" $cd ,#$4735 。 /x Call 4735h */ 
3310 『" $3a,#.a。 /%※ 1d  a,(a) ※/ 
3320 $cd ,#$4b54 /x Cal1 4b54h x/ 
3330 『* $21 ,#$0000。 /* 1d hl,0 ※/ 
3340 『* $22,#$ec88, /% 1d (0ec88h) ,hl */ 
3350 $cli /X POP bC ※/ 
3360 ') 
3370 '/x input sequential data 
3380 ' 
3390 '% filenum[0..21 


"input(filenumi 拉 。): 
9 
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3-5 サン プル <・ ブ ログラム 


′ lnlinme 
$c5, /x puSh bc ※/ 

M $3a,#.filenum。 /X 1d  a,(filenum) ※/ 
$cd,#$4735, /x Cal1 4735h */ 

9 $cd,#$4b7b, cal1 4b7bh */ 

4 $21,#$0000, 1d  h1,0 x/ 

0 $22,#$ec88, 1d  (Oec88h),hl */ 
$c1i pop bc ※/ 

の 


'/%* end of file 
ME 3 


filenum[0..21 


'eOf(filenumi# 六 ) 
枚 い 
inline 
$c5, %/ 
$3a,#.f ilenum, a, (filenum) ※/ 
PD 1,4 %/ 

$26 ,$00, h,0 ォ / 
$cd ,#$21fd。 21fdh  / 
$3a,#$ec7d, a,(ec7dh) */ 
$b7, a ※/ 
$28,$05, Z,nOd1SKx/ 
$cd,#$a685, a685h  */ 
$18,$03, Skip %/ 
$cd ,#$4cC51 。 /*nodiskK:call 4c51h x/ 
$3a,#$ec41 。 /*SKip:l1d a,(ec41h) */ 
$c1l: /*pOoP bc ※/ 

寺 

*/* VarPtr(#m) 

" 給 


filenum[0..21 

革 

ME 74 
*Varptr(filenum,fCbnum:#,#) ? 
ば 


inline 
$c5, 


$3a,#.f11enum、 
$cd 、#$46f8。 
$3a,#.fcbnum、 


a,(filenum) X/ 
46f8h */ 
a,(fcbnum) */ 
6,a ※/ 
d,0 ※/ 
hl.de */ 
a.(hl ) */ 

pop bc %/ 
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{[ 2 ) ファ イル ・ タ イプ (リス ト 3-7 ) 

ASCI TI 形式 の ファ イル の 内 容 を 表示 し ます 。 た だ 
し , 表示 で きる ファ イル は ASCI 1 形式 の ファ イル だ 
け で す 。 


@ リ スト 3-7 ファ イル ・ タ イプ 


1000 
1010 
1020 
1030 
1040 
1050 " 
1060 
1070 " 
1080 " 
1090 " 
1100 
1110 ' */ 

1120 "prog type()* 

1130 

1140 "data firstmsg:"input file name = ",0, 

1150 errmsg:"it'S not ASCII type "70 

1160 " 

1170 "cons in:s0, 

1180 " 

1190 " 

1200 " 

1210 'var str[20], 

1220 " Ci 

1230 *{ 

1240 '。 str" 

1250 '′ print_str(i.firstms9): 

1260 ′ input_str(20:.Str+1): if carry() then Stopi 

1270 open(1,ini.Str)i 

1280 

1290 if (varptr(1.7) and $81) then ( print_str(:.errmsg): cloSe(1): stopi } 
1300 ' while not eof(1) ( 

1310 C:=input(1): 

1320 Print_chr(c): 

1330 inline $cd,#$5a86: 

1340 } 

1350 close(1): 

1360 

1370 '/* 

1380 ′ *I/0 console 

1390 ' */ 

1400 ' var PRTFLG at($e64c): 

1410 ' data _lpt:00: 

1420 ' print_str(leni1X,#): 

1430 ' ( 

1440 PRTFLG:=_lpti 

1450 inline 

1460 /* PUSh IX %/ 

1470 /* POP hl %/ 

1480 /wl1:ld  a,(hl) 

1490 /% OT a 

1500 /* Jp  Z,$+6 

1510 /x YSt 18h 

1520 /* inc hl 


File Type 


this program is for PC-8801/mkII 
& 5 inch 2D drive 


written by H.Ohkuma 


し 生生 生生. 全 . 全 仁和. 信人 生 】 


09/05/84 
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$18,$f8: 
PRTFLG: =0: 
} 
print_chr(chri#。#)i 


input_str(leni 1X,#): 
て 8 


inline 


$23. 
$0c. 
$10.$f4, 
$36.00. 
$79: 
_-1bl_:inline 
$cl: 
) 
1pt_Sw(Swi#。 守 ) 1 
Var LPTFLG at(._lpt): 
{ 
if not(Sw) 
then LPTFLG: =swi 
else LPTFLGi 
} 
'/* openfile 
b 衣 : 


filenumt0..2] 
inout,in=0 outs1 
FileName 

ME 74 


*OPen(filenum。inmOutiiX /XFileNamex/ ,#) 
団 


1f 2<inout then Stopi 


else inout:=?(inout<2: inc( inout ) ,8) 1 


inline 


$3a,#、f 11enUm。 
$cd ,#$47f6。 
$21,#$0000, 
$22,#$ec88, 
$cli 


) 
/* 。 Closefile 


bC %/ 

IX */ 

hl */ 

468ch */ 

3。( inOut )*/ 
6,a #/ 
a,(filenum)*/ 
47f6h */ 

hl,0 %/ 
(0ec88h) ,hl x/ 
bC %/ 


サン プル < プログ" ラム 


405 


2220 '#\ 


2230 ' #\ filenum[0..2] 

2240 ' */ 

2250 'close(filenumi#,#) 

2260 '( 

2270 ′ inline 

2280 『 $c5, /% PuSh bC ※/ 

2290 $3a,#.fllemUm,。 /x 1d  a,(filenum) */ 
2300 $cd,#$481d。 /* Cal1 481dh */ 

2310 " $21 ,#$0000, /* 1d hl,O ※/ 

2320 『 $22,#$ec88, /* ld  (Oec88h) ,hl x/ 
2330 " $cli /%X POP DC ※/ 

2340 '} 

2350 '"/* output sequential data 

2360 ' # 

2370 ' ※ filenum[0..2] 

2380 ' a: output chracter 

2390 ' ※/ 

2400 "output(filenum,ai)? 

2410 '( 

2420 ′ inline 

2430 $c5, /* puSh bc ※/ 

2440 $3a,#.f1lenum,。 /* 1d  a,(filenum) */ 
2450 " $cd,#$4735。 /* Call1 4735h x/ 

2460 " $3a,#.。 /\ 1d  a,(a) */ 

2470 * $cd ,#$4b54 /x cal1 4b54h x/ 

2480 『" $21 ,#$0000, /* 1d hl,O %/ 

2490 " $22 ,#$ec88, /%※ 1d (0ec88h) ,hl */ 
2500 $c1i /%* POP bc %/ 

2510 ') 

2520 '/x input sequential data 

2530 ' ※* 

2540 ' filenum[0..2] 

2550 ' x/ 

2560 'input(filenumi#,#): 

2570 '( 

2580 ′ inline 

2590 * $c5、 /* puSh bc き / 

2600 『" $3a,#.filenum,。 /* 1d  a,(filenum) ※/ 
2610 " $cd ,#$4735 /% Cal] 4735h */ 

2620 $cd ,#$4b7b, /\ Cal1 4b7bh */ 

2630 $21 ,#$0000, /* 1d hl,0 w/ 

2640 $22,#$ec88, /* ld  (Oec88h) ,hl */ 
2650 $c1i /* POP bc #/ 

2660 '}) 

2670 '/* end of file 

2680 '* 

2690 ' filenum[0..2] 

2700 '*/ 

2710 "eof(filenum:#、 社 )・ 

2720 '( 

2730 | inline 

2740 『" $c5、 /* PuSh bc メ / 

2750 “" $3a,#.f1lenum、 /* 1d  a、(filenum) メ / 
2760 “ $6f 、 7% 1d 1.a ※/ 
2770 『" $26 、$00, /* 1d h.0 ※/ 
2780 “ $cd、#$21fd, /* Call 21fdh  */ 
2790) * $3a ,#$ec7d 、 /* 1d  a,(ec7dh) */ 
2800 『" $b7 . Z* Or a ※/ 
2810 $28.$05、 /※ jJT  、Z,mOodiSKx/ 
2820 $cd ,#$a685 、 /%※ Call a685h  */ 
2830 * $18、$03, /% JT  SKip %/ 
2840 $cd ,#$4c51 。 /%nodiSK:Call 4c51h x/ 
2850 " $3a,#$ec41 , /%SKip:ld a,(ec41h) */ 
2860 " $c1i /%POP DC ※/ 
2870 '} 

2880 "/* varptr(#m) 

2890 '* 

2900 ' * filenum[0..2] 
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3-5 サン プル < プログ" ラム 


某 
0 
"varptr(filenum,fCbnumi 拉 。#) 


inline 


$c5。 /% 
$3a,#.f1lenUm,。 /※ a,(filenum) x/ 
ゃ cd ,#$46f8。 46f8h */ 


$3a ,#.fcbnum。 a,(fcbnum) */ 
e,a ※/ 
d,0 ※/ 
hl,de 
a, (h1 ) 


〔 3 〕) Stellar プロ グラ ム の 圧縮 (リス ト 3-8 ) 

Stellar の ソー ス ・ プ ログ ラム の ファ イル を 圧縮 し ま 
す 。 ラ イブ ラリ を 圧縮 し て お 〈《 と , 使用 メモ リ を 小さき 〈 
で き フ リー エリ ア が 増し ます 。 た だ し , ASCII ャ ー 
ブ き る れ た ソー ス ・ プ ログ ラム は 圧縮 で きま せん 。 


リス ト 3-8 プログ ラム の 圧縮 


ん .】 

*/% written by K.Ishizuka 

*/※ 09/05/84 き / 
)/※ \/ 


*PTO9 COmPreSSOr( )* 
Var LINK[2],LN[2] 、bf [256] 
C。1en。1。eTT, 
filenamel[20],filename2[20], 


0 SLASH.DQUOT、brace[2]: 
′ data s1:"input source file name : ",00, 
s2:"input destin file name : “",00, 


s3:"input first line number : “"、00: 


Print_str(i.S1):iinput_str(19:.filenamel+1):if carry() then StOPi 
print_str(i.52):input_str(19:.filename2+1):if Carry() then StoPi 
print_str(:.S3):err:=input_num(2:.LN)・ 


if err<>0 then if errs] then stopielse error_trap(1): 
if LNs0 and LN[1]=0 then error_trap(2): 


filenamel:=filename2:='"5 
open(1.0:.filenamel ):open(2,1:.filenamme2) : 
if(varptr(1.7) and $80)=0 then error_trap(3): 


LINK:=LINK[1]: =DQUOT : =SLASH: =brace:=brace[1]:=0: 

eraSe_linme_number(1): 

り 1p: 

1en:=2ibf[1en]:=LNibf[inc(1en)]:=LNE11: 

bf [inc(len)]:=$3aibf[inc(1en)]:=$8fibf[inc(1en)]:=$e9* 

if DQUOT then bf[inc(len)]:=" 5 
{/xrepeat※/ 


407 


1310 C:=in(1): 

1320 if DQUOT then bf[inc(len)]:=Ci 

1330 elset 

1340 if C='%X' and SLASH then erase_Comment( ): 

1350 " elseif Cc=$27 

1360 thent 

1370 『 bf [inc(len)]:=Ci 

1380 bf [inc(len)]:=in(1)ibf[inc(len)]:=in(1) 
1390 } 

1400 elseif punc(c) and bf[len]=′ ' then bf [len]:=Ci 
1410 elseif not(punc(bf[len])&c='′')then bf[inc(len)]:=Ci 
1420 SLASH:=?7(c='/ 則 ー1.0)5 

1430 if cs='{('then add_w(brace,brace[1],1.0:.brace)* 
1440 elseif c='})' then add_w(brace,brace[1] ,-1 ,-1:.brace): 
1450 } 

1460 DQUOT:=?(C='" "inoOt DQUOT ,DQUOT ) : 

1470 ) until lend(): 

1480 if DQUOT thentbf[inc(1en)]:="" bf[inc(len)] = 
1490 bf [inc(1en)]:=00: 

1500 add_w(LINK,LINK[1],1en+1.0: .LINK): 

1510 bf :=LINKibf[1]:=LINK[11: 

1520 for i:=0 to len(output(2,bf[i]):) 

1530 add_w(LN,LN[1],10.0i.LN)iif carry() then error_trap(2)* 
1540 goto 1pi 

1550 ) 

1560 '1end(): 

70 で 

1580 " (1en>=230& 

1590 (punc(c)&^(SLASHIC= (の! く =C&C く =*$") 1C=$271C=' く "1C=*" >! ) ) ) 1 
1600 (1en>=237&DQUOT ) ! 

1610 ?(c= 7) "5(brace[1]ibrace)=0,0): 

1620 ′ } 

1630 "in(fn): 

1640 ' var ai 

1650 ' ( 

1660 * a:=input(fn): 

1670 " if a=00 thenta:=eraSe_line_number(fn)i} 

1680 ' ai} 

1690 "erase_line_number(fn): 

1700 ' var a[21],ij 

1710 { 

1720 ai=input(fn)ia[1]:=input(fn)i1f as0 and a[1]=0 then input_past_end(): 
1730 input(fn) iinput(fn)i 

1740 ti)until input(fn)=$e9i 

1750 $20: 

1760 } 

1770 "punc(a): 

1780 1 

1790 if a<="/' then -1: 

1800 " elseif ':"<=a amd a<= "7? then -1: 

1810 elseif '['<=a and a<='^′ then -1: 

1820 elseif '('<=a and a<='“′ then -1: 

1830 elseif as$e9 then -1lielse 0: 

1840 ′ } 

1850 "input_past_end(): 

1860 ′ var i: 

1870 ′ ( 

1880 『* bf[inc(len)]:=0: 

1890 add_w(LINK,LINK[1],1en+1、0:.bf )* 

1900 " bf[inc(len)]:=bf[inc(len)]:=0: 

1910 " for i:=0 to len(output(2,.bf[i]):) 

1920 * for i:=0 to 2(output(2.-1):) 

1930 close(1):close(2)* 

1940 setbasfil(:.filename2)・ 

1950 " StOP・ 

1960 ′ } 

1970 'erase_comment(): 

1980 ' var ab 

1990 ' ( a:=b:=0: 
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3-5 サン プル < プログ" ラム 


2000 『 tta:=bib:=input(1)i)until a='%':)until b=//・ 

2010 " SLASH: =0idec(len): 

2020 ′ } 

2030 "setbasf il (iiX,#): 

2040 ′ { 

2050 inline 

2060 $dd,$e5, き / 

2070 $el, ※/ 

2080 $cd,#$468C。 %/ 

2090 $cd ,#$4742 、 %/ 

2100 『" $cd,#$98ea 。 き / 

2110 " $11 ,#$0009。 de,0009hx/ 

2120 * hl.de  ※/ 

2130 (hl ) , 80hx/ 

2140 a,(ec8dh)*/ 

2150 d,a #/ 

2160 $cd,#$a340? 0a340h */ 

2170 } 

2180 "error_trap(err): 

2190 data el:7,“"Input error",13,10,0。 

2200 e2:7。"Linme number OV error",13.10,0, 

2210 e3:7,"Bad sorce error",13.10.0: 

2220 

2230 if errsl then print_str(i.e1): 

2240 if err=2 thentprint_str(i.e2)iclose(1):cloSe(2)i} 

2250 if errs3 thentprint_str(i.e3)iclose(1):close(2)5} 

2260 StoPi 

2270 } 

2280 "var PRTFLG at($e64c)idata _lpt:00iprint_str(leniix,#):(PRTFLG:=_lptiinline 
$dd,$e5 ,$el ,$76,$b7 ,$28 ,$04,$ も df ,$23,$18,$f8:PRTFLG:=0:) 

2290 "imput_Str(leniiX,#) 1 て in1ine$C5,$cd ,#$5fC8 ,$38 ,$19,$3a,#.1en。$47 ,$0e。$00,$0 
5,$dd、$e5,$d1,$eb,$13,$13,$77、$b7 ,$79,$28,$07,$23,$0C,$10,$f5、$36 ,$00,$79,$c1i) 
2300 "input_num(typeiiX,#)idata _1b1_:$cd,#$5fC8 ,$36,$01.$d8,$23、$cd ,、#$26bC ,$f 7 。 
$3e,$02,$f0,$2a,#$ec41,$3a,#.type,$ も dd,$75,$00,$3d ,$28 ,$05,$dd ,$74 。$01,$af 、$c9,$7 
C,$b7,$cC8,$3e,$02,$37 ,$c9i (1n1ine$cd ,#._1b1_i) 

2310 " 

2320 'add_w(a_1,a_h,b_1,b_hi1X,#):(1n1 ine$24,#.a_1,$ed,$5b,#.b_1,$19,$dd,$75,$00 
x$dd)$74,$01:) 

2330 "open(filenum,inouti1x。#):(1f 2 く <jinmout then stopielse jnout:=?(inout<2:inc(i 
nout ) , 8) : inl ine$c5,$dd ,$ も e5 ,$e1 ,$cd ,#$468C,$3a,##. inOut ,$5f ,$3a,##.f 11emUm。$ も Cd,#$47 
f6,$21 ,#$0000 ,$22,#$ec88,$c1:) 

人 *cloSe(filenumi#, 社 ):(1nl ine$C5,$3a ,#.f 11enum,$Cd 、#$481d ,$21 ,#$0000,$22 ,#$eC 
88,$c1i) 

2350 "output(f11enum,ai 守 。#)1 (in11ne$C5 ,$3a ,#.f 11enum,$Cd , 守 $4735 ,$3a .#.a,$Cd ,#$4b 
54,$21 ,#$0000,$22,#$ec88,$c1i) 

2360 'input(filenumi#。#)?(1n11ine$C5,$3a,#.f11enum,$cd,#$4735 ,$cd,#$4b7b,$21.#$00 
00,$22,#$ec88,$C1:) 

2370 "varptr(filenum,fcbnumi#,#):(inml ime$C5,$3a,#.f11enUm、$cd,#$46f8,$3a,#.fcbnu 
m,$5f ,$16,$00,$19,$7e,$c1i} 

2380 
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[ 4 ) サン プル ・ ゲ ー ム (リス ト 3-9 ) 

コン パイ ル さ る され だ プロ グラ ム の 速度 を みる だ た め に リア 
ル タ イ ム ・ ゲ ー ム を つく っ て み ま し た 。 遊び 方 は , テン 
キー の 8, 2, 4, 6 で , 上 下 左右 に 操り ,. テン キー と 
スペ ー ス ・ バ ー を 同時 に 押し て プ ブロック を 移動 し ます 。 
敵 に 捕まら な いよ うに ブロ ッ ク で 敵 を や っ つけ て くだ きる 
い 。 

な お , リス ト で 空白 の な い 部 分 は , 【3〕 の プロ グラ 
ム で 圧縮 し た ライ ブラ リ を も マージ し た も の で す 。 


@ リ スト 3-9 サン プル ・ ゲ ー ム 


1000 '/* %/ 
1010 '/% written by K.Ishizuka ※/ 
1020 '/* 09/05/84 メ %/ 
1030 '/* %/ 


1040 "prog Sample_game( ) 

1050 ′ (main():) 

1060 'console(s,n.F.Ci#,#):Var CNSDFG at($e6b8 ) 、LINEND at($e6b1):var SCRLL1 at($ 

e6b2 ) ,SCRLL2 at($e6b3):var CMODE at($e6b9): (SCRLL1 :=?(S く =25:S+1.7(mot Si25,SCRLL 
1) ):SCRLL2:=2(n<=25:2(nin+5.1) 2(not n:25、SCRLL2)):if notF thentif F then 

1070 "CNSDFG:=$ffielsetinline$cd,#$4021:CNSDFG:=0:))C:=2(not CiC.CMODE) : inline$3 

ai#.C,$cd,#$70d1:) 

1080 "width(h,vi#.#):Var LINCNT at($ef88),LINMDT at($ef89):(if not h then:else h 
:=LINWDT:if not v thenielse v:=LINCNT:if(h=40 or h=80)and(v=25 or v=20)then inli 

ne$2a,#.h、$45,$4C,$ も cd ,#$6f 6b} } 

1090 "screen(c.f:#,#):Var HIRESL at($e6a6 ) 、PORT31 at($e6c2):var PORT40 at($e6c1 ) 
iif inc(c)thentif dec(c)thentif dec(c)thentif dec(c)thenielse(HIRESL:=1:port〔$3 
11:=PORT31:=PORT31 and$eei))elsetHIRESL:=0:port[$31]:=PORT31:=(PORT31 or$01) 
1100 "and$efi:))else(HIRESL:=0:port[$31]:=PORT31:=PORT31 or$11:))if not f thentif 
f and$01 then port[$40]:=PORT40 :=PORT40 or$10ielse port[$40]:=PORT40:=PORT40 an 

d$efiif f and$02 then port[$31]:=PORT31 :=PORT31 and$f7ielse port[$31]:=PORT31:= 
1110 "PORT31 or$08:)} 

1120 "cls(ni#,#):(if nm and$01 then inline$cd,#$5f0eiif n and$02 then inline$f3,$ 

3a ,#$e6c1 ,$f6.$10,$d3,$40 ,$3e,$5c,$4f 、$ed,$79,$01,#$3e7f ,$11,#$C001,$21.#$C000.$ 

36 ,$00 ,$ed ,$b0 ,$3c,$fe,$5f ,$20 ,$eb,$d3,$5f ,$3a ,#$e6c1 ,$d3,$40、$fbi ) 

1130 '1ocate(X,Y,Fi#,#):Var CSRY at($ef86) ,CSRX at( .CSRY+1 ) ivar LINCNT at(.CSRY+ 

2) LINWDT at(.CSRY+3):var CURFG at($e6a7):(CSRY:=?(LINCNT>Y:Y+1,LINCNT ) iCSRX:=7( 

LINMDT>Xi:X+1 LINWDT)iif not F then CURFG:=?2(Fi1,0):) 


1140 

1150 "put(X,Yi1X): 
1160 '{ 

1170 ′ inline 
1180 ′ $f3, 
1190 ' $3a,#.Y。 
1200 ' $5f, 
1210 ' $87, 
1220 ' $6f, 
1230 ' $26,$00, 
1240 ' $54, 
1250 ' $29, 
1260 ′$19, 
1270 ' $29, 
1280 '$29, 
1290 ′ $29, 
1300 ′$29。 
1310 ' $29, 
1320 ′ $29, 
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$3a,#.X。 
”$5f 。 
・$19, 
”$11,#$C000, 


・$ 
$01,$5c,$03, 


5, 


$d5, 
$dd,$7e,$01。 
$87 


*data ch_block1:$2.$2. 
′$00.$80 .$00,$80 、$00.$80 ,$ff 、$ff ,/xBx/ 
・$00.$01.$00.$01.$00.$01、$ff,$ff 
・$aa,$aa,$55,$d5,$aa、$aa.$ff 、$ff./xRx/ 
′$aa.$ab,$55 .$55 ,$aa,$ab,$ff,$ff 。 
′$00,$80,$00.$80.$00.$80,$ff,$ff、/XGx/ 
・$00、$01.$00.$01.$00.$01.$ff,$ffi 
"data ch_block2:$2,$2. 
)$ff,$ff,$ff,$ff,$ff,$ff,$ff、$ff、/xBx/ 
)$ff.$ff,$ff,$ff,$ff,$ff,$ff,$ff。 
”$aa.$aa、$55 .$d5 ,$aa,$aa.$ff,$ff 、/*Rx/ 
′$aa.$ab.$55 .$55 ,$aa,$ab,$ff,$ff 。 
′$00.$80.$00.$80 .$00 .$80,$ff ,$ff ,/xGx/ 
・$00.$01,$00,$01.$00.$01,$ff,$ff 
*data ch_road:$2.$2 、 
′$00.$00,$00.$00,$00,$00.$00,$00,/xBx/ 
・$00.$00.$00.$00.$00.$00,$00.$00, 
′$00,$00,$00,$00,$00.$00.$00,$00,/*Rx/ 
′$00.$00,$00.$00,$00.$00,$00,$00, 
・$00.$00,$00,$00,$00,$00,$00.$00,/xGx/ 
′$00,$00,$00.$00.$00.$00.$00,$00: 
"data ch_man1:$4,$4。 
′$38,$03,$c0,$1c,$f8,$0f ,$f0,$1f ,/*Bx/ 
′$d0.$18.$18.$06,$08,$18,$18,$28, 
・$05.$1c.$18,$50 ,$02,$8f ,$f2,$80、 
′$01.$55.$55,$00,$00.$aa,$aa,$00, 
”$00,$55.$54.$00,$00 ,$aa,$aa,$00, 
′$00.$55,$54,$00,$00,$2e,$b8,$00, 
$01.$54,$14,$00 ,$02,$b0 ,$02.$80. 
”$01,$00.$01,$00,$02.$80,$02,$80, 
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2030 


2110 


2120 『 
2130 『 
2140 『' 
2150 
2160 『 
2170 『 


2180 
2190 


2200 
2210 " 
2220 " 
2230 " 


2240 


2250 " 
2260 " 
2270 
2280 『' 
2290 
2300 


2310 
2320 
2330 


2360 


2430 
2440 


2500 


2620 


2640 


2660 
2670 
2680 
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2040 
2050 " 
2060 
2070 『 
2080 
2090 " 
2100 


2340 
2350 * 


2370 
2380 『' 
2390 
2400 
2410 ‥" 
2420 『" 


2450 
2460 
2470 『 
2480 『' 
2490 


2510 
2520 
2530 “ 
2540 
2550 " 
2560 
2570 " 
2580 『" 
2590 * 
2600 
2610 


2630 
2650 『' 


2690 


′$38 ,$03、$c0 、$1cC,$f8.$0f ,$f0、$1f ,/*Rx/ 
$f0.$1f,$f8,$0e,$1c,$19,$98,$38, 
$0f,$1f ,$f8,$f0.$03,$cf ,$f3,$c0, 
$01.$ff,$ff,$00,$20,$ff,$fe,$00, 
$40.$fa,$be,$00,$40,$f5,$5e,$00, 
$38 ,$6a,$ac,$00,$0e,$39,$58,$00, 
$01,$fd,$3e,$00.$03,$f0,$83,$80, 
$01.$9c,$43,.$00,$07,$c3,$87,$c0 , 
$00,$00.$00,$00,$18,$03、$CO ,$18 ,/*Gx/ 
・$10.$08,$10,$00,$00,$08,$10,$00, 
$00,$0c,$10.$00,$00,$03,$c0 ,$00, 
$00,$00,$00,$00,$00,$00,$00,$00, 
$00,$05,$40,$00,$00,$0a,$a0,$00, 
$00 ,$15,$50,$00,$00,$06,$a0,$00 
$00.$00.$00,$00.$00,$00,$00.$00, 
$00,$00,$00,$00,$02,$80 ,$02,$80: 
"data Ch_man2:$4,$4 。 
”$01、$c0,$03,$80,$07 ,$83,$C1 ,$e0 ,/xBX/ 
$0c,$0f ,$f0.$20.$0c,$18,$18.$50, 
$0a,$18.$18,$a0,$05,$1c,$19.$40, 
$02,$8c,$32,$c0 、$01.$55,$55,$00, 
$00,$aa,$aa,$00,$00.$55,$54,$00, 
$00,$aa,$aa,$00,$00,$55 ,$54 ,$00, 
$00,$2e,$b8,$00,$01.$54,$15,$00, 
$02,$b0,$0a,$80.$00,$70,$0e,$00, 
$01,$c0 ,$03,$80,$07,$83,$c1 ,$e0 ,/xRX/ 
$0c,$0f,$f0,$30,$0e,$1f ,$f8,$70, 
$0f ,$19,$98,$f0,$07 ,$9f ,$f9.$e0, 
$03,$cc,$33,$c0 ,$01.$ff,$ff、$0C, 
$00,$ff,$fe,$02,$00.$fa,$be,$04, 
$00,$f5,$5e,$08,$00、$6a,$ac,$18。 
$00,$39,$58.$60 、$01,$fd,$3f ,$80, 
$03.$f0.$ef ,$c0,$00,$f8,$1f ,$00, 
$00,$00.$00,$00.$01.$80,$01.$80./xGx/ 
・$00 .$03,$c0 ,$00 .$00 ,$08 ,$10、$00。 
$00.$08 .$10,$00,$00.$0c.$10.$00, 
$00,.$00.$00.$00.$00,$00,$00.$00, 
$00.$00 .$00,$00.$00.$05,$40.$00. 
$00.$0a,.$a0.$00,$00,$15,$50.$00, 
$00.$06.$a0 ,$00,$00.$00,$00,$00, 
$00,$00,$00.$00,$00.$70,$0e,$00: 
"data ch_enemy] :$4,$4。 
”$00.$00、$00.$00.$00.$00、$00 .$00./*Bx/ 
$0c,$00,$00,$30 .$30 ,$0e,$70 、$0c、 
$0c.$71.$8e.$30、$03、$80.$01.$c0. 
$00,$00.$00.$00.$00,$00.$00.$00, 
$00,$00 .$00.$00、$00.$00.$00.,$00、 
$00 .$08.$10.$00,$00.$04,$20 .$00、 
・$00.$le.$78.$00.$00 .$03,$c0,$00. 
$00.$00.$00.$00.$00,$00,$00,$00。 
$00,$00.$00.$00.$00,$00,$00.$00,/xRX/ 
$0c.$00,$00.$30 .$30 ,$0e,$70.$0C, 
$0c.$71.$8e,$30 ,$03.$80,$01.$c0, 
$00,$06.$60 ,$00,$00.$06,$60,$00 
$00.$00.$00,$00.$00,$00.$00.$00. 
$00.$08.$10.$00,$00,$04,$20 ,$00, 
$00.$le、$78,$00,$00,$03,$c0,$00 、 
$00.$00.$00.$00.$00,$00,$00,$00, 
$00 .$00.$00,$00.$00,$00,$00,$00,/x*Gx/ 
$00.$00.$00.$00.$30,$0e,$70,$0C, 
′$0c.$71.$8e,$30 ,$03,$8f 、$f 1,$C0。 
$00,$39.$9c,$00,$48 ,$39 ,$9c,$12。 
′$90.$1f ,$f0,$09,$b0 ,$04,$20,$0d, 
$70,$7f ,$fe,$0e,$31,$C7 ,$e3,$8C, 
・ $0f .$1f ,$f8.$78,$00 ,$e3,$c7 、$00, 
・$07.$00,$00,$e0.$38 .$00,$00,$1ci 
'data ch_enemy2:$4,$4. 
$c0 ,$0C,$30 .$03.$30 ,$32 ,$4C,$0C,/xB※/ 
′$0c,$c1 .$83.$30 ,$03.$00 ,$00,$c0 
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*・$00.$00,$00.$00,$00,$00,$00,$00, 

*$00,$00,$00,$00 ,$00 ,$00,$00,$00 
$00,$08,$10.$00,$00.$04,$20,$00。 

′$00.$le,$78,$00.$00.$03.$c0.$00, 

・$00.$00,$00,$00,$00,$00.$00,$00, 
$00,$00,$00,$00,$00,$00,$00,$00, 
$c0 ,$0c,$30,$03,$30 .$32 ,$4C,$0C,/*R/ 
$0c,$c1,$83,$30,$03,$00,$00,$c0, 
$00,$06,$60,$00,$00,$06,$60,$00。 
$00,$00,$00,$00,$00,$00,$00,$00, 

′$00,$08,$10,$00,$00,$04,$20,$00, 

・ $00,$1e,$78,$00,$00 ,$03,$c0,$00 
$00,$00,$00,$00,$00,$00,$00,$00, 
$00,$00,$00.$00,$00,$00,$00,$00, 
$00,$0c,$30 ,$00,$30 ,$32,$4C,$0C,/XG/ 
$0c,$c1,$83,$30 ,$03,$0f ,$f0,$c0, 

・$00.$39,$9c,$00,$00,$39,$9c,$00, 

・ $0f,$1f,$f0,$f0.$31 、$C4,$23,$8C。 
$70,$7f ,$fe,$0e,$b0,$07 ,$e0 ,$0d, 

・$90,$1f,$f8,$09,$48,$63 

′$01.$80,$01,$80.$03,$00 

′$03,$00.$00,$c0,$07,$00 

*'Var maP_Pi 

*data maP: 

′ 33,30,2,30 ,2,2,6, 

6 5,2,6,2。 


*data init: 
。 13.7.15,19.1,0,2。 
21,4.2341,1.0。10。 
^ 7,16.11.13,$ff,0,13。 
27.16.15.1.$ff,0.7: 
*var hiscore[2],Sscore[2],Score_h at (.SCOre+1 ) ,man, enemy ヽ 
*var MX,MY,BoxX[4],BoxY[4],OL[41,0X[4],OY[4],DX[4] ,DY[4] ,DS[4]: 
*var IV_w[704]:idata IV:#.IV_w,32,22。1: 
*var H,C,BackC,D,Z,K,V,W,Endi 
"Var jii 
"main()i 
width(40,25):console(0,25.0.0):cls(3):screen(-1,0): 
make_stage( ): 
′ locate(1,22):print_Str(i.meSS): 
” hiscore:=0ihiscore[l]:=0j 
{/*wrepeatx/ 
man:=3ienemy:=1 
Score:=0iScore[1]:=0i 
{/*repeatx/ 
for ji:=0 to 3 (OL[i]:=?(i1 く <enemyi1.0)) 
{/Xrepeat%/ 
init_val():init_stage( ) : 
{/xrepeatw/ 
D:=move_enemy( ): 
if Ds0 
then { 
enemy:=?7(enemy=4i1,enemy+1 ) 
Q_put(MXx2,MY2i Ch_road) ibox_clear(): 
} 


else ( 
if C:=not(port[00] and port[O1]) and $55 
then {( 
if C and $01 then move_(0,-1): 
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3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 


3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 


3700 


3740 
3750 
3760 
3770 
3780 


3800 
3810 
3820 
3830 


3860 


3880 
3890 
3900 
3910 
3920 


3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 


3560 『 


3690 ‥ 
3710 『 
3720 『" 
3730 


3790 『 


3840 
3850 


3870 『* 


3930 『" 
3940 『' 


5 elseif C and $40 then move_(1.0): 
き elseif C and $04 then move_(0,1): 
8 elseif C and $10 then move_(-1.0): 
『 } 
5 else loop 1,255{loop #,40(i}) 
if Ki=?2(Ks0i1,0) 
8 then put(MXx2,MYx2:.Ch_manl ):elSe Put(MXx2,MYx2: 
dead_check( ) 
8 if Z 
5 then { 
Q_put(MXx2。MYx2i Ch_roOad)i 
" Sound(1)j 
8 dec(man): 
9 1ocate(30,22,1)iprimt_using(1.man,0): 
上 box_clear( ):enemy_Clear(): 
6 1f man=O then 9ame_over( ) 
} 
* } 
9 } until Z<>0 or Ds0i 
2 ) until man=0 or D=0: 
) umtil mans0: 
) }) until Endsli 
′ width(80.20):screen(-1.3): 
紀 
"make_Stage( ) 
*Var 1i、ni 
"Var X、Y* 
弱 
"map_P:=-1:X:=0iY:=0: 
{/XTepeat/ 
” nm:=maP[inc(maP_P)]: 
if n 
then { 


for i:=l ton 
{ 


put(X,Y:.ch_block1 )* 
init_IV(X,Y,1): 
if (X:=(X+2)%64)=0 then Y:=Y+2: 
} 
n:=maP[inC(maP_P)]: 
if n then 
for i:=l ton 
( 


Put(X.Y:.ch_road) : 
init_IV(X.Y,0): 

if (X:=(X+2)%64)=0 then Y:=Y+2: 
} 


} 
) until n=0i 


"init_IV(X.Y,a): 
*var IV_adr[21: 
村 
array(X/2.Y/2: .1IV)i 
if Y<=42 then memory[ix]:=ai 
0 
"init_val(): 
人 ( 
) init_P:=-1: 
′ for i:=O to 3 
ゃ 。 
BoxX[i]:=init[inc(init_p)]: 
1 init[inc(init_p)]i 
い :=init[inc(init_p)]iOY[i]:=init[inc(init_pP)]i 
の DXLi]:=init[inc(init_p)]:DY[i]:=init[inc(init_p)]: 


DSLi]:=init[inc(init_p)]: 
if OLLi]=0 then OX[i]:=0: 
} 

MX:=15:MY:=10iH:=15 
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3-5 サン ルン < ブロ グ " ラ ム 


4090 '} 

4100 'init_stage(): 

4110 '( 

4120 ' for i:=0 to 3 tput_(BoxX[i],BoxY[i],1:.ch_block2):} 
4130 ' locate(4,.22)iprint_using(5,hiscore,hiscore[11): 
4140 ' locate(16,22)iprint_using(5,Score,Score[11): 

4150 ' locate(30,22):print_using(1.man,0): 

4160 '} 

4170 "move_enemy( ) 

4180 "var D,X,Y,V,W,Z: 

4190 "var ii 

4200 '( 

4210 ' D:=0i 

4220 ' Hi=?2(H=1i0,1) 

4230 ' for ji:=0 to 3 

4240 
4250 " 
4260 " 
4270 " inc(D): 

4280 『" Z:=mOve_a_enemy(OX[1],OY[i],DXLi],DY[i],1): 


{ 
if OLLi] then 
{ 


4290 
- 4300 
4310 
4320 
4330 "move_a_enemy(X、Y,V,W,1): 
4340 "var Z,t,U,Oi 

4350 '{ 

4360 ' Z:=move_check(X,Y,V,W): 
4370 ′ if Z=0 then 


4380 ' ({ 

4390 * t:=Viu:=WiO:=Sgn( ) 

4400 ′ Wi=ti:V:=U: 

4410 『' if o then 

4420 『" { 

4430 『* if V=O then W:=oielSe V:=Oi 
4440 『 Z:=mOVe_ChecCk(X,Y,V.W): 

4450 if Z=0 then 

4460 { 

4470 V:=-ViW:=-Wi 

4480 Z:=mOVe_Check(X,Y,V,W): 
4490 } 

4500 が 

4510 ′ if Z=O then 

4520 " { 

4530 " Vi=-tiW:=-Ui 

4540 Z:=mOve_Check(X,Y。V,W): 

4550 if Z=0 then 

4560 6 

4570 『* 0LLi]:=0i 

4580 『' if carry(Score:=Score+10) then inc(score_h): 
4590 " Sound(0 ) 

4600 " 1ocate(16,22):print_uSing(5,Score,SCOre[1]): 
4610 " ) 

4620 } 

4630 '′ } 

4640 ' Q_put(OX[i]x2.0Y[i]x2:.Ch_road) 
4650 ' if Z=1 then 

4660 ′ { 

4670 '′ OX[i]:=X+ViOY[i]:=Y+Wi 


4680 『 DX[i]:=ViDY[i]:=Wi 
4690 '′ ifH 
4700 then put(OX[i]x2.0Y[i]x2: .Ch_enemy1 ) 


4710 " else put(OX[i]x2.0Y[1]x2: .Ch_enemy2) 
4720 ′ } 

4730 ' ZZ: 

4740 '} 

4750 "move_(V,W): 

4760 "var ii 

4770 '( 
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if not port[09] and $40 

then move_block(V,W): 

else {loop 1i,255(loop#,30(:))Q_Put(MXx2.MYx2: .Ch_road ) i WOVe_man(V、W):} 
} 


* 剖 OVe_mman(V,W)i 

* if moOVve_check(MX,MY,V,W)=1 
′ then ( 

) MX:=MX+Vi 

′ MY:=MY+Wi 

尊 

ま 

"moOve_block(V,W): 

*Var 1,X,Y 

隊 い 

・ for 1i:=0 to 3 (move_a_block(BoxX[i].BoxYLi].V,W,i):) 
絆 う 

*mOVe_a_block(X,Y,V,W,1) 1 

い 


if mOVe_check(X,Y,V,W) 
′ then( . 
′ Put_(X.Y,0:.ch_road): 
Xi:=XtViY:=YTWi 
′ Put_(X.Y,1:.ch_block2 ) : 
BoxX[i]:=XiBoxY[i]:=Yi 
* 
) 
"mMOVe_Check(X,Y.V.W) 
"Var Pd,T,S* 
'( 
*) Pi=0:q:=0i 
′ if VtM<=$7f 
then (r:=Vw2:S: 
else 《r:=V:s:=Wi} 
′ if Vs0 then P:=1: else q:=1: 
) Ti=X+TiS:=Y+S・ 
′ if load_array(r,S:.IV)+load_array(r+P.S+qi .IV) then 0:elSe 1・ 
*dead_cheCKk( ) ・ 
了 


・Z:=0: 

・ for i:=0 to 3 (if MX=OX[i] then if MY=OYLi] then Z:=1:) 
*9ammC_OVeT( ) : 

*Var keyi 

' 

” inline $cd,#$35d9: 

′{(/wrepeat/ key:=input_chr():End:=?(key=$03:1.?(key=$20:2、0) ): 
*” )until End=1 or End=2: 

′ if compare_w(:.SCOre, .hiscore) then mmOVe_w(:.hiSCOTe,.SCOTe) 
) 


*enemy_Clear( ): 

"Var ii 

> 

・ for ji:=O to 3 

・ ( if OL[i] then Q_put(OX[i]x2。0Y[i]x2:.ch_road):} 
9 】 

*box_clear(): 

*Var ii 

"6 


"for ji:=0 to 3 {put_(BoxX[i],BoxY[i],0:.ch_road):}) 
9 ) 

"Put_(X,y,nUmWi ixX): 

ae( 


Q_Put(xw2,yw2i1X) 

array(X,yi.1V): 

WWOTY[1X] :=nUm:CmWOTY[1X,1]:=numi 
Set IX:=iX+32: 

WWOFY[1X] :=nUmimCmOTY[1X,1]:=nUmi 
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5470 ') 

5480 'Q_put(x,yilxX): 

5490 "( 

5500 ' put(x,yiiX)iPut(X+2.yi1xX)i 

5510 ′ put(x,y+2i1x)iput(X+2。y+21 1X)? 

5520 ') 

5530 "move_w(ilX,IY): 

5540 '( 

5550 ' memory[IX]:=memory[IY]imemory[IX。1]:=memory[IY。1]: 

5560 ') 

5570 'compare_w(iIX.IY)・ 

5580 '( ?2(memory[IX、1]>memory[IY.1]:1.?(memory[IX]>=memory[IY]:1.0)):) 

5590 

5600 

5610 

5620 

5630 

5640 『" 

5650 

5660 " 

5670 "sound( 1 

5680 var PORT40 at ($e6cl),on,off。Jj 

5690 '{( 

5700 ' off:sPORT40:on:=off or $20:inline ${3: 

5710 ′ if i=0 

5720 thentport〔$40]:=onifor i:=0 to 200(:)Port〔$40]:=off:) 

5730 ′ elset 

5740 1oop 1i,255( 

5750 port〔$40]:=onifor Jj:=0 to ii)i 

5760 port[$40]:=offifor j:=0 to it(i)i 

5770 * }》 

5780 } 

5790 '′ inline $fb: 

5800 '} 

5810 "var PRTFLG at($e64c)idata _lpt:00iprint_str(leniix,#):(PRTFLG:=_lpt:inline 
$dd,$e5,$e1 ,$76,$b7 ,$28 ,$04,$df ,$23,$18,$f8:PRTFLG: =0:) 

5820 "print_num(num 1,nmum_hi#。#) (PRTFLG: =_1ptiin1 ime$2a,#.nUm_1.$cd ,##$28C21PRTF 
LG:=0:) 

5830 "Print_uSing(1en,1ow_num。high_numi 守 ,#) (PRTFLG:=_1pti in]1 ine$2a,#.10w_nUm,$C 
d,$fd,$21,$3a,#.1en,$47 ,$3e,$80,$06,$00.$cd,$d1,$28 ,$cd ,#$5550:PRTFLG: =0:) 

5840 "input_chr(i#。#) (1n1 ine$ も Cd ,#$3583: }) 

5850 "data _mul:00,_mul_w:00,00imWul(a,bi#。#) ?VaT WU1_m at(_Code+6):(inline$21 ,#。 
b,$3a,#.a,」$Cd 人 #.WU1_ も af ,$94,$7C、$32,#、 mu1,$7di ) 

5860 "mulov(i#。#)5(_mu1i) 

5870 "mul_w(a_1。a_h,b_1,b_hiiX,#): (in1 ine$C5 ,$21 ,#0000 ,$ed ,$4b,#.a_1,$ed,$5b.#.b 
_1,$3e,$10,.$29,$cb,$11.$cb,$10.$30 ,$04,$19,$30,$01,$03.$3d ,$20 ,$f2.$ed ,$43,#._mWU 
1_w,$dd,$75,$00,$dd。$74,$01,$90.$3e,$00,$99,$cli1 

5880 "mulov_w(i1X,#)1(@[iX。1]:=_mul_w[1]:@[ix]:=_mUl_wi) 

5890 "array(X,Y,Zi#1X。#):Var adr_l。adr_hi(if @[ix,4]-1 thentadr_1:=mul(Z,@[ix,3] 
)iadr_h:=mulov( ) i inline$2a,#.adT_1,$3a。#.y,$5f 。$16.$00.$19.$22,#.adT_1imul_w(adr 
_1,adr_h,@[ix,2],0:.adr_1):)elsetadr_l:=mul(y,@[ix,2]):adr_h:=muloVv( ) : 

5900 ')inline$2a,#.adr_1,$dd,$5e,00,$dd,$56 ,01,$19,$3a ,#.X。$5f ,$16.$00,$19,$e5,$ 
dd,$e1i) 

5910 "1oad_array(X,Y,Zi1X。#) (arTay(X,Y,Zi1X):@Lix]:) 

5920 "store_array(a,X,Y,Zi1X,#)? (arTTaY(X。Y,Zi1X):@[ix]:=ai) 

5930 “ 
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うー- の コン ンプ ラ の ダン プク スム 
と 力 ち 入 み みた だ 


PC-8801 ヾ バー ジョ ン の Stellar コン パイ ラ の 全 ダ ン 
プ ・ リ スト を リス ト 3-10 に 示し ます 。 こ の と お り に 打ち 
込め ば , すでに Stellar コン パイ ラ が 使 を を 4 を よう に な り 
ます 。 リ スト の チェ ッ ク サ ム は 8 バイ ト の デー タ の 和 で 
す 。 こ の プロ グラ ム の 実行 アド レス は 名 HB500 で , フ ァ 
イル 名 は “Stelar. b5『 と し て セー ブ し て くだ さい 。 


信 リ スト 3-10 ダン プ ・ リ スト 
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3-6 コン ン パ プラ の ダン クス / と ガ ち 迄 みみ 


27 CD E8 
E8 06 01 
01 0A 00 
30 C3 37 
1C 30 
30 20 03 
C3 37 07 
El 7D F5 
OF 07 F1 
3A 38 02 
20 18 18 
C9 3E 0D 
18 09 7E 
23 18 F7 
B7 7B D1 
F3 C9 3A 
C2 E6 CB 
E6 CB E7 
C9 3B C8 
00 C5 E5 
27 CA 7D 
33 FE 3C 
CA A6 33 
FE 2C CA 
BO 33 FE 
3B CA BO 
0B FE 0OD 
CD EA 0A 
21 00 D5 
E6 22 55 
05 09 CD 
ED 4B 57 
61 09 11 
2F 2A 53 
20 09 CD 
2B CD E9 
BI 0A 21 
2A 3C 2F 
52 09 CD 
2F 36 00 
00 ED BO 
39 33 21 
01 00 40 
OB 78 B1 
AC 08 CD 
22 3C 2F 
D3 5C 22 
22 51 2F 
2F 21 00 
A2 0D 21 
11 08 09 
51 2F CD 
ED 4B 59 
61 09 21 
2A 55 2F H 
37 09 CD BI :9E 
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3-6 コン ンプ ラ の ダン プク スル た と ガ ち 込み みみ 


B1 0A C3 OD 0A 25 : 
41 62 6F 00 ED 53 : 
48 2B 09 CD : 
B1 E1 28 39 : 
E5 23 K 4D 2F : 
CD 7D 0A : 
0A 20 00 : 
20 5E 23 : 
EB 18 * 
20 2F CD : 
18 
3C 
09 
B7 
5F 
C4 
C9 
44 
75 
67 
6C 
4F : 
01 
BB 
22 
67 
3A 
3B : 
E5 
7D 
0B 
2F 
3E 
CD 
57 
C9 
ED 
5E : 
20 
B9 
9B 
・ 40 
2A : 
EF : 
7D : 
09 : 64 
38 : 00 
01 : 97 
8 人 2B D3 
25 : 66 28 
7D * 0C E5 
30 B7 : 52 28 
1D CB : 23 13 1A 
20 06 : 10 F5 
01 CB 8A : 19 EB 
4D 0OA CD : 01 00 


C210 
C218 
C220 
C228 
C230 
C238 
C240 


C250 
C258 
C260 
C268 
C270 
C278 
C280 
C288 
C290 
C298 
C2A0 
C2A8 
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C248 : 


D6 
0A 
E1 
0D 
20 
65 
20 
44 
0B 
22 
44 
7C 
DD 
CB 
7E 
CD 
3C 
DD 
04 
CS 


C320 
C328 
C330 
C338 
C340 
C348 
C350 
C358 
C360 
C368 
C370 
C378 
C380 
C388 
C390 
C398 
C3A0 
C3A8 
C3B0 
C3B8 
C3C0 
C3C8 
CS3D0 
C3D8 
CS3E0 
C3E8 
CS3F0 
C3F8 
C400 
C408 
C410 
C418 
C420 
C428 
C430 
C438 
C440 
C448 
C450 
C458 
C460 
C468 


C2 
CA 
CD 
4F 
SA 
CO 
2B 
60 
4F 
FE 
F6 


60 : 


20 
F1 
30 
22 
28 
BI 
4F 
SE 
22 
2F 
56 
B1 
CD 
2E 
6B 
5F 
CD 
00 
3E 
19 
22 
06 
00 
26 
CD 
2F 
00 
ED 
18 
21 


2D 
OE 
28 
CB 
C2 
C2 
CD 
FI 
CB 
20 
40 
21 
CD 
30 
22 
2F 
FE 
EE 
CB 
CD 
2F 
59 
41 
21 
11 
29 
2A 
61 
12 
3E 
2A 
10 
20 
18 
10 
53 
27 
6F 
B7 
06 
3E 
51 


CD 
FE 
PE 
E6 


60 


60 


Bi : 


BE 
FE 
09 
18 
4F 
BI 
03 
53 
34 
29 
3B 
67 
BB 
CD 
2F 
27 
71 
CD 
12 
59 
72 
SF 
1E 
53 
27 
08 
0D 
27 
2F 
3A 
20 
28 
27 
31 
2F 


FE 


53 
EE 
A3 
2F 
30 
FE 
2C 
2D 
28 
51 
2A 
2F 
11 
BI 
2A 
6F 
29 
51 
64 
06 
21 
B7 
ED 
21 
CD 
00 
2A 
00 
11 
08 
27 
00 


2 
06 : 
2 8 
87 : 
03 : 
2 
CD : 
3A : 
02 : 
2F : 
53. 6 
3E : 
CD : 
0A : 
3 
72 : 
12 : 
2F 
65 : 
27 : 
00 : 
28 :( 
CD : 
00 : 
F5 : 
19 : 
55 
21 : 
7B : 
27 : 
3E : 
19 : 


3-6 コン パイ ラ の ダン プク スム と ガ ち 和 ろ みた だ 


424 


3-6 コン イラ の ダン プク スル たと がち 込み 


2F 21 * 
1E 3A 
08 C2: 
87 38 
3E C3 : 
C3 CD : 
2B 22 : 
DO 0B : 
BO 2D : 
BO 2D : 
3E C3 : 
2A 57 : 
"18 05 : 
3 B1 8 
C3 
CD 
ED 


F60 B7 


C 
CF68 61 


CF70 
CF78 
CF80 
CF88 
CF90 
CF98 
CFA0O 
CFA8 
CFB0O 
CFB8 
CFC0 
CFC8 
CFD0O 
CFD8 
CFE0 
CFE8 
CFF0 
CFF8 
D000 
D008 
DO10 
DO18 
DO020 
D028 
D030 
D038 
D040 
D048 
D050 
D058 
DO060 
D068 
D070 
D078 
D080 
D088 
D090 
D098 
DOA0 
D0A8 
DOBO 
DOB8 
DOCO 
DOC8 
DODO 
DOD8 
DOE0 
DOE8 
DOF0 
DOF8 
D100 
D108 
D110 
D118 
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3D 
FE 
97 
2D 
2D 
02 
1A 
21 
El 
7E 
E1 
1 
SB 
3A 
B9 
C2 
0C 
3A 
C4 
20 
3A 
81 
7E 
06 
CD 
26 
2D 
28 
27 
26 
01 
C2 
FE 
CD 


BI : 


C4 
B9 
23 
28 
D6 
28 
71 
2D 
2F 
C8 
95 
21 
B9 
49 
21 
03 
D8 
7E 
18 


2 


CD 


D120 
D128 
D130 
D138 
D140 
D148 
DI50 
D158 
D160 
D168 
DI70 
D178 
D180 


D188 
D190 


D198 
D1A0 
D1A8 
D1B0 
D1B8 
D1CO 
DIC8 
DiDO 
DID8 
DIE0 


DIE8 : 


DIF0O 
DIF8 
D200 
D208 
D210 
D218 
D220 
D228 
D230 
D238 
D240 
D248 
D250 
D258 
D260 
D268 
D270 
D278 
D280 
D288 
D290 
D298 
D2A0 
D2A8 
D2B0 
D2B8 
D2CO 
D2C8 
D2D0 
D2D8 


A6 


3-6 コン パイ プラ の ダン ンク スル た と ガ ち 和み みた 
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3-6 コン イラ の ダン アク スム と ガ ち 込み ろ み 


20 05 :02 
B9 20 :CZ 


0B 
C6 
1A 
ED 
81 
2F 
41 
8B 
91 
4F 
8E 
4A 
42 
95 
45 
98 
9D 
4E 
Bi 
45 
BF 
4C 
BC 
4D 
54 
52 
52 
53 
52 
52 
54 
52 
52 
49 
53 
A3 
99 
52 
4C 
49 
92 
4F 
28 
3A 
5D 
B7 
7E 
FE 
63 
DE 
20 
03 
30 
2B 
DO 
3F C9 FE 


430 


3-6 コン プラ の ダン プク ス た と が ち 入 みみ た 


EOEO D8 FE 5B 3F DO FE 61 D8 :77 E2A0 6D 65 6E 74 00 11 52 2D :44 


EOE8 FE 7B 3F C9 21 00 00 1A :BC E2A8 18 0E6F 76 65 72 20 72 :74 
EOFO D6 30 FE 0A DO 44 4D 29 :98 E2BO 61 6E 67 65 00 11 71 2F :4C 
EOF8 38 12 29 38 OF 09 38 0C :07 E2B8 21 6A 2D CD 56 0A 21 00 :06 
E100 29 38 09 4F 06 00 09 38 :00 E2CO 00 C9 23 49 6C 6C 65 67 :D3 
E108 03 13 18 E3 2A 5F 2F 11 :DA E2C8 61 6C 20 63 6F 6E 73 74 :14 
E110 71 2F 06 OF 7ECD 6D 2B :98 E2D0 61 6E 74 20 3A 20 5C 00 :19 
E118 38 49 05 04 28 03 12 13 :DA E2D8 21 86 2D C3 F5 2D 23 42 :1E 
E120 05 23 18 FO0 21 00 00 1A :6B E2EO 61 64 20 63 6F 6E 73 74 :0C 
El128 CD 74 2B D8 CD 57 2B D6 :69 E2E8 61 6E 74 00 21 9A 2D C3 :EE 
E130 30 FE 0A 38 02 D6 07 4F :9E E2F0 F5 2D 23 42 61 64 20 61 :CD 
E138 06 00 7CE6 FO 20 08 29 :A9 E2F8 64 64 72 65 73 73 20 63 :08 
E140 29 29 29 09 13 18 E0 2A :B9 E300 6F 6E 73 74 61 6E 74 00 :07 
E148 5F 2F 11 71 2F 06 0OE 7E :D1 E308 21 B6 2D C3 F5 2D 23 53 :5F 


E150 23 12 13 7E CD 74 2B 38 :6A E310 79 6E 74 61 78 20 65 72 :2B 
El58 0A 05 04 28 03 12 13 05 :68 E318 72 6F 72 00 21 CA 2D C3 :2E 
E160 23 18 F0O E5 AF 12 CD 5D :FB E320 F5 2D 23 42 61 64 20 69 :D5 


E168 2D D1 21 00 00 C9 11 1F :18 E328 6E 64 65 78 20 6F 70 65 :13 
E170 2C CD 3A 2C 36 02 C9 76 :D6 E330 72 61 74 69 6F 6E 00 21 :AE 
E178 61 72 69 61 62 6C 65 00 :D0 E338 E5 2D C3 F5 2D 23 42 61 :BD 
E180 11 31 2C CD 3A 2C 36 01 :D8 E340 64 20 65 78 70 72 65 73 :1B 
E188 C9 63 6F 6E 73 74 61 6E :BF E348 73 69 6F 6E 00 CD 56 0A :E6 
E190 74 00 21 00 00 22 6E 2F :54 E350 C3 44 0A C3 F2 2E C3 DA :91 
E198 21 4A 2C CD 56 0A 21 61 :46 E358 2E C3 22 2E C3 24 2E C3 :19 
E1A0 2F C9 23 4D 69 73 73 69 :20 E360 34 2E C3 39 2E C3 3E 2E :BB 
E1A8 6E 67 20 5C 20 6E 61 6D :AD E368 C3 3F 2E C3 4F 2E C3 50 :83 
E1BO 65 20 3A 20 40 62 2F 00 :BO E370 2E C3 60 2EC3 61 2EC3 :94 


E1B8 21 66 2C C3 F5 2D 23 42 :FD E378 72 2E 5EFE5SA16 00 6A :D6 
ElCO 61 64 20 6F 70 74 69 6F :10 E380 67 3E 08 29 30 01 19 3D :5D 
E1C8 6E 20 73 77 69 74 63 68 :20 E388 20 F9 7DC9 CD3E2E7?7B:13 
E1DO 00 21 7F 2C C3 F5 2D 23 :D4 E390 C9 CD 3F 2E 7B C9 56 5F :FC 
EID8 49 6C 6C 65 67 61 6C 20 :DA E398 AF 2E 08 CB 23 17 BA 38 :DC 
ElIE0O 66 75 6E 63 74 69 6F 6E :66 E3A0 02 92 1C 2D 20 F5 C9 56 :11 
E1E8 20 6E 61 6D 65 00 21 9F :81 E3A8 14 15 C8 5F 7A FE 09 3E :OF 
EIFO 2C 11 62 2F C3 56 0A 23 :14 E3BO 00 DO 7B 87 15 20 FC C9 :CC 
EIF8 40 80 2C 20 3A 20 5C 00 :C2 E3B8 56 14 15 C8 5F 7A FE 09 :27 
E200 21 AE 2C C3 F5 2D 23 49 :4C E3CO 3E 00 DO 7?7BCB3F15 20:C8 
E208 6C 6C 65 67 61 6C 20 6E :FF E3C8 FB C9 22 00 30 ED 53 FE :54 
E210 61 6D 65 00 21 C5 2C 11 :56 E3D0 2F El1 22 02 30 E1 22 04 :6B 
E218 62 2F C3 56 0A 23 40 AF :C6 E3D8 30 3A DA 2F B7 28 0OD 21 :80 


E220 2C 20 3A 20 5C 00 11 62 :75 E3EO DA 2F 5F 16 00 19 47 F1 :CF 
E228 2F 21 D7 2C C3 56 0A 23 :99 E3E8 77 2B 10 FB 2A 04 30 E5 :FO 
E230 49 6C 6C 65 67 61 6C 20 :DA E3F0O 2A FE 2F 7C B5 28 1E EB :B9 


E238 6C 61 62 65 6C 20 3A 20 :7A E3F8 21 00 00 ED 52 39 F9 C5 :57 
E240 5C 00 21 FO 2CC3 56 0A :BC E400 42 4B EB 2A 00 30 ED BO :6F 
E248 23 42 61 64 20 73 74 72 :A3 E408 C1 2A 00 30 E5 2AFE 2F :57 
E250 69 6E 67 20 64 61 74 61 :F8 E410 E5 21 DO 2EE5 79 B7 28 :41 
E258 00 21 07 2D C3 56 0A 23 :9B E418 0B 2A 00 30 EB 21 DB 2F :7B 


E260 54 6F 6F 20 6D 61 6E 79 :07 E420 06 00 ED BO 2A 02 30 E9 :E8 
E268 20 61 72 67 75 6D 65 6E :OF E428 C1 D1 21 00 00 39 ED BO :89 
E270 74 73 00 21 24 2D 11 71 :DB E430 F9 C9 3A FB 2F B7 20 03 :00 
E278 2F C3 F5 2D 23 49 6C 6C :58 E438 76 18 FD 3D 20 05 ED 7B :55 


E280 65 67 61 6C 20 63 68 61 :E5 E440 FC 2F C9 3D 20 F2 2A FC :69 
E288 72 61 63 74 65 72 20 3A :DB E448 2F E9 FC 2DFF 2D 02 2E :9D 
E290 20 5C 00 11 40 2D 18 20 :32 E450 05 2E 08 2E 0B 2E0OE 2E :DE 
E298 64 69 73 70 6C 61 63 65 :45 E458 11 2E14 2E17 2E1A 2E:OE 


3A 2E :64 


77 
88 
B2 
CD 
00 
00 
00 
00 
00 


2E 
2E 
2E 
2E 
00 
00 
00 
00 
00 


:2E 


:BC 
:44 
He1 
:3C 
:00 
:00 
:00 
:00 
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あと が き 


本 書 で 述べ た 内 容 は , コン パイ ラ 作 成 の 基本 的 な こと な の で , 本 
格 的 な コン パイ ラ を つく る 場合 に は , いさ さか 足り な い 部 分 が ある 
と 思わ れ ま す . さら に , 詳し いこ と が 知り た い 方 は 参考 文献 に 挙げ 
た 本 を 読む な り , 実際 に 作動 し て いる コン パイ ラ の プロ グラ ム ・ リ 
スト を 見 た り し て 研究 する の が 望ま し いで し ょ う . 

し か し , 何より も 実際 に 自分 ど コ ン パ イラ を つく っ て みる こと で 
す . それ が , 仮に 実用 に は 向 か な いよ うな 貧弱 な コン パイ ラ で あっ 
て も, 完成 する まで に 得 ら れる 知識 は 万 巻 の 書物 を 読む こと より , 
は る か に 多い よう に 思わ れる か ら で す . 


本 書 第 2 部 で 作成 例 し し て 示し た Stellar コン パイ ラ を フロ ッ 
ピー ディ スク で ご 希望 の 方 に 配布 し ます (1985 年 7 月 末 ま で ). 
配布 する の は 次 の 2 種類 で す . 


①Stellar コン パイ ラ , CP/M バ ー ジ ョ ン ( ツ ー ス ・ プ ログ ラム 
仙 、 ラ イデ ラリ な し ) \10,000 
8 イン チ 片 面 単 密度 (1S) また な は 5 イン チ 両 面 倍 密 度 (2D) 


②Stellar コン パイ ラ PC-8801 バー ジョ ン ( ラ イブ ラリ 付 , ツー 
ス ・ プ ログ ラム な し ) \10,000 
5 イン チ 両 面 倍 密度 (2D) 


ご 希望 の 方 は 。 ユン パイ ラ の バー ジョ ン と ディ スク の 種類 を 
明記 の 上 , 現金 書留 に て 帳 エ ム ・ ア イ ・ エ ー Stellar コン パイ ラ 
係 ま で お 送り くだ さい. 
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印刷 ・ 製 本 チト セ 印 刷 
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本 書 は 著作 権 上 の 保護 を 受け て いま す . 本 書 の 一 部 ある い は 全部 に つい て (プロ グラ ム を 合 む ), 
費 エ ム ・ ア イ ・ エ ー に 文書 に よる 許諾 を 得 ず に , いか な る 方 法 に お いて も 無断 で 複写 , 複製 する こ 
と は 禁じ られ て いま す . た だ し , 本 書 掲 載 の Stellar コン パイ ラ を 利用 し て 作成 され た ソフ トウ ェ ア 
に つい て は 一 切 権利 を 問い ませ ん . 


メス キー ラー ニン グン 


入門 CPIM」 
J 定価 1.500 円 (送料 300 円 ) 


CPM は 8 ビッ ト の 標準 的 な OS と し て 世界 的 に 広く 普及 し て いま す 。 
本 書 は この CPM を 取り 上 げ 、O S の 基本 的 な 概念 か ら 、CP ン M の 導入 
の 手引 、 実 際 の 操作 方 法 ま で を 、 豊 富 な 実例 や イラ スト を 使っ て 説明 し まし た 。 

内 容 : C P ZM で 何 が で きる か 7? CPM を 導入 する に あたっ て ビル トイ ンコ マン ド 
基礎 実習 トラ ンジ ェ ン トコ マン ド 基 礎 実習 etc. 


「 実 習 DPIM」 
』 定価 1.800 円 (送料 300 円 ) 


CPM の すべ で て の コマ ンド の 使い 方 を 実例 で 具体 的 に 解説 。 る さらに 、 マ シ 
ン 語 ソ フト 開発 者 の た め に 、CP ン M を 使っ た 開発 作業 の 進め 方 を 詳説 し まし た 。 
内 容 :CP ノ M の ハー ドウ ェ ア 構 成 CP ZM の ソフ トウ ェ ア 構 成 ビル トイ ンコ マン ド 
徹底 実習 トラ ンジ ェ ン トコ マン ド 徹 底 実習 CPM に よる マシ ン 語 開発 実習 


「 応 用 CD/ M」 定価 1.800 円 NM 


シス テム コー ル を 使っ て の マシ ン 語 プロ グラ ム 開 発 を 豊富 な 実例 に より 、 徹 
底 的 に 実習 。 ま た 、C・PASCAL・FORTRAN な どの 高級 言語 の 実 
務 レベ ル で の 使い 方 も 、 解 説 し まし た 。 

内 容 : CPM の 内 部 構造 と 機能 の 詳細 全 シ ステ ムコ ー ル 徹底 解説 各種 高級 言語 に よ 
る 同一 主題 ソフ ト 開 発 例 etc. 


が 放 誠 ゆ 


入門 MS-DOS」 


MS-DOS 上 の ビジ ネス ソフ ト な ど 、 各 種 の ソフ トウ ェ ア を 有効 に 使う た め に 
必要 な 基礎 知識 や 、 基 本 的 な 操作 法 を 説明 。 豊富 な 実行 例 を 基 に 解説 し て い 
ます の で 、MS-DOS を マス ター する の に 大 き な 効 果 が えら れ ま す 。 

内 容 : パソ コン ユー ザー と MS-DOS と の か か わり MS-DOS の 起動 重要 コマ ンド と その 
機能 MS-DOS 上 の ソフ トウ ェ ア etc. 


人 UISK BASG」 


DISK BASIC を 効果 的 に 使用 し た いと 考え て いる ユー ザー の た め の 入 門 書 。 
マイ クロ ソフ ト 系 の DISK BASIC の 命令 に つい て 、 体 系 的 に 、 し か も わか り 
や すい 使用 例 を 示し な が ら 解 説 し て いま す 。 

内 容 : DISK BASIC と の 出合 い DISK BASIC を 使う 前 に プロ グラ ム を 扱う ファ イル デ 
ィ ス ク に 記録 する 形式 etc. 


高 有 USK BASI 


DISK BASIC を 業務 な ど で 利 用 する 場合 の ニー ズ に 合わ せ て 、 フ ァイル や 
DISK BASIC の コマ ンド を 有効 に 利用 する た め の 数 々 の 手法 を 、 詳 細 に 、 し 
か も 総合 的 に 解説 し ます 。 

内 容 : DISK BASIC を 超え て 論理 レコ ー ド と 物理 レコ ー ド サー チ 法 順 編 成 フ ァイル 
直接 絹 成 ファ イル 索引 順次 編成 ファ イル ソー ト 法 etc. 


ォ xx を な # ノ アスキー | 
お 問い 合せ 、 カ タロ グ 請 求 は 〒|07 東 京都 港 区 南青山 5-!|-5 住 友 南青山 ビル PHONE03(486) 711I 穫 SEIl 


エム ン ン テー 毒 箸 案 愉 


| マシ ン 語 プログ ラミ ング 入門 


A5 判 定価 2200 円 (送料 250 円 ) 


MMP だ kJ 
ょ 、 命令 そ の も の を 理解 する の と 同時 


に 、 ひ と つ ひ と つの 命令 を どう 組み 合 


わせ る か が 重要 に な っ て くる 。 本書 は 
これ を ポイ ント に し た ニュ ー タ イプ の 
実践 的 入門 書 で ある 。 見 や すい よう に 
配慮 し た マシ ン 語 命令 、I0CS、|/0 ポ ボー 


ト な どの 解説 は 、 中 級 者 レベ ル に と っ 
て も 貴重 な 資料 と な る だ ろう 。 キ メ 細 
か な 記述 に 加え て 、 本 格 的 な マシ ン 語 
プロ グラ ム の 開発 シス テム と し て 、 高 
い 機 能 を 持つ 『 エ ディ タ ・ ア セン プ ブラ 』 
の リス ト も 掲載 され て いる 


PC-88018 生 氷 高 速 ゲ ー ム の 制作 


A5 判 定価 3800 円 (送料 350 円 ) 


マシ ン 語 ゲー ム の 制作 上 、 最 も 重要 な 
画面 処理 ー- グ ラフ ィ ッ ク ・ パ ター ン の 
つく り 方 、 表 示 、 移 動 等 の 基礎 か ら 、 

重ね 合わ せ の 処理 、 仮 想 VRAM と いっ 


た 実践 テク ニッ ク ま で 、 豊 富 な 実例 ( サ 
ンプ ル ・ プ ログ ラム ) を まじ えて 平易 
に 解説 。 付 属 の カセ ッ ト に は パタ ー ン ・ 
エディ タ 、 ゲ ー ム ・ プ ログ ラム を 収録 


APPLE FAHM 


A4 判 定価 3500 円 (送料 300 円 ) 


世界 的 な ベス ト セ ラー マシ ン APPLE II 
の 豊富 な ソフ トウ ェ ア の 中 か ら ゲ ー ム 
を 中 心 に 250 本 を 選び 、 日 本 各地 の ア 
ッ プ ル ・ マ ニア か 執筆 、 編 集 。 念 THE 


STORY OF APPLE II 念 「WIZARDRY」、 
「ULTIMA」 徹底 研究 但 THE CLASSIC 
GAMES-APPLE SOFT 名 作 選 ラス タ 
ー ブ プラ スタ ー プ ロー ドラ ン ナ ー …etc 


ノウ ニー ン 活 万 の た め の 6 女 


MSX マ シン 語 入門 (基礎 編 ) 


B5 判 定価 1800 円 (送料 250 円 ) 


MSX で マシ ン 語 を 学ぶ 人 の た め に 、 
予備 知識 、 基 礎 知 識 か ら マ シン 語 プ ロ 
グラ ミン グ の 実際 まで 、 図表 等 を 多用 
し て わか りや すく 解説 。 モ ニタ ・ ア セ 


ンプ ブラ 全 リ スト 付き 。( 付 録 ) 介 MSX マ 
シン の キャ ラク タ ・ コ ー ド 表 念 Z 80 イ 
ンス トラ クシ ョ ン 一 覧 表 但 マシ ン 語 ニ 


ー モ ニッ ク 対 応 表 


MX マシ ン 語 


入門 (応用 編 ) 


B5 判 定価 1800 円 (送料 250 円 ) 


マシ ン 語 ゲー ム づ くり に 必要 な ハー ド 
の 知識 (特に 表示 、 音 ) を 、 サ ンプ ル ・ 
プロ グラ ム と 図表 を 多用 し て 徹底 解説 
ク グラン イク ・ エ デザ イタ 。 サウ ンド ・ 


コン パイ ラ 等 の ツー ル ・ ソ フト も 充実 。 
さら に MSX 音 声 合成 (MSX が し ゃ べ る 
/) に も 注目 を 。『 マ シン 語 入 門 (基礎 
編 )』 に 続く 待望 の 第 2 弾 。 


MS マシ ン 語 


人 門 (実践 編 ) 


B5 判 定価 1800 円 (送料 250 円 ) 


マシ ン 語 の 予備 知識 を 得 、 実 際 に プロ 
グラ ミン グ に か か ろう と いう 人 の ハン 
ドブ ッ ク と し て 最適 。 初心 者 が 陥り や 
すい プロ グラ ミン グ の 落と し 穴 を すべ 
て フォ ロー し た 基本 テク ニッ ク 集 。 


人 @ 何 は と も あれ プロ グラ ム し て みよ う 
@ マ シン 語 の 定石 念 基本 テク ニッ ク の 
まとめ 旬 メ イン ディ ッシュ (実践 テク 
ニッ ク ) 介 応 用 


お 求め は 最寄り の マイ コン ・ シ ョ ッ プ 、 書 店 へ 。 ま た は 郵送 料 を 添え て 下記 へ お 申し 込み くだ さい 。 


〒!50 東京 都 渋谷 区 渋谷 2-9-| 青山 田中 ピル 


TEL.(03)486-4500 帽 工 ハム ・ ア イ ・ エ ー MI 人 A 


テム ・ ア プイ < エー 毒 苦 案 応 


教育 は コン ピュ ー タ を 必要 と する か 


読売 新聞 記者 雨宮 正彦 著 


四 6 判 定価 980 円 (送料 250 円 ) 


いま 教育 界 は 困難 な 問題 に 直面 し て い 
る 。 そ うし た 中 で 注目 を 集め 始め た CAI 
と は 何 か 、 そ れ は 教育 の 現状 を どう 変 
える の か 、 問 題 点 は どこ に ある の か 、 と 


いっ た こと を 冷静 な 眼 で 紹介 する 。CAI 
の 東明 期 か ら 全国 各地 の 教育 現場 に 実 
際 に 足 を 運び 、 子 供 た ちの 反応 を 肌 で 
確か め て きた 記者 の 取材 レポ ー ト 。 


電気 通信 新法 55 の ポイント 


電気 通信 問題 研究 会 編 


B6 判 定価 1000 円 (送料 250 円 ) 


INS、 キ ャ プ テ ン 、CATV な どの 各 ニ ュー 
メデ ィ ア は 実用 の 段階 に 入り 、 通信 サ 
ービス が 歴史 的 な 自由 競争 時 代 に 入 ろ 
うと し て いる 。 そ こ で 、 焦 点 と な っ て 
いる 「 通 信 新 法 」 を ズバ リ わ か りや す 


く 解 説 し た の が 本 書 で ある 。 通 信 新 法 
の 軸 と し て 国会 に 提出 され た 電気 通信 
事業 法 と 日 本 電信 電話 株 式 会 社 法 を 解 
説 す る こと に よっ て 、 新 し い 競 争 の 時 
代 の ルー ル を 明らか に する 。 


を ぃ ハル ソ コン 素朴 な 問 80 


テレ ビ 東 京 秋田 完 他 著 


B6 判 定価 980 円 (送料 250 円 ) 


パソ コン に 冷た くさ れ て いる 世 の ビ ジ 
ネス マン に 贈る アド バイ ス 集 。 パ ソコ 
ン の 入門 書 を 読ん で も わか ら な い 文 科 
系 人 間 、 パ ソコ ン が 気 に な る が 、 触 れ 


られ な いで いる メカ ・ オ ンチ 人 間 、 子 
供 に 遅れ を と っ て いる と 、 焦 り を 感じ 
て いる 中 高 年 族 に は 、 か つて な い 福 音 
の 書 と な る だ ろう 。 


お 求め は 最寄り の マイ コン ・ シ ョ ッ プ 、 書 店 へ 。 ま た は 郵送 料 を 添え て 下記 へ お 申し 込み くだ さい 。 
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